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256K SUPEROM 
EXPANDER 

'J Select instantly from S socket* 

which accept up t# 32K EPROM each. 
Q PTO ffm 7*hj own EPROM* using 

our EPROM programcr . 
Q no need to Inure lot* of cartridges 

■ Jut make a selection from the 

Superom menu, 
_J Fully menu driven on power up. 
[J Select any slot under suftw are 

controls. 

J Unique EPROM generator feature 
wUl take your own programs - basic 
Or m/c ft turn them Into autostart 
EPRQMs . [EPROM burner required!. 

□ Accept! 2784/27 12&/2725G 

Q On boftrd unstoppable reset, 
Qj On board operating systems - no 
programs to load. 



ONLY 



£29.99 




RESET CARTRIDGE 

Q Unstoppable reset button. 

NOTE:- user port cheaper type reset 

buttons offered by others are not 

unstoppable, 
J Keset s even so called "unstoppshle" 

programs. 
J Add pokes from magazines etc. 
J nisi In cart ridge port. 
Q Blmpljplugin 



ONLY 



£5.99 




3 SLOT 

MOTHERBOARD 

SAVE WEAR ft TEAR ON YOUR 
EXPANSION POST 

_J Accepts 3 cartridges. 

U Switch In/out any slot. 

(J Onboard safety fuse. 

Q Fully buffered, 

Q High grade PCH. 

□ Reset button. 



MIDI 64 

FULL MIDI INTERFACE FOR THE 
&4/12S AT A REALISTIC PRICE. 
Q HIDE In/MIDI thru/2 I MIDI out. 
1_| Compatible with most leading 
soft ware package*. 

only £29.99 




DIGITAL SOUND 
SAMPLER 

|_| The new sampler allows you to 
record any sound digitally Into 
memory A then replay It -with 
astounding effect*. 

I J Playback forwards /bat kwardn with 
eehe^ re verb /ring modulation, 

_f Now with full sound editing muddle 
to produce outstanding effects. 

□ Full 8- bit D to A ft ADC conversion. 
J| MIDI compatible with suitable 

Interim:*. |L.e. Dule! unit EOT 

£2B.P0. see adj. 
3 Live effects menu Inclndss real 

time display of waveforms. 
f] line In/mlc In/line out/ feed due:* 

controls. 

Jj Feweriull eequeucer with editing 

fawti sr M . 
1 J Load/save sample. 
|J Up to 8 samples In memory at aae 

time, 

Q Tape or disk (please state). 
Q Complete software /hardware 
pMhage. 

ONLY £49.99 
COM-DRUM 

DIGITAL DRUM SYSTEM 

.J NOW j'Ou CJiu turn yum digital Kounrl 

sampler Into ik digital drum system, 
J & digital drum sounds In memory at 

one time. 
_| Complete with 3 drum kits. 

□ Heel drum sennas - net *yntheiiied. 
i J Create superb drum rhythms with 

real ft step time. 
Q Full editing., Menu driven. 
fj Output to hl-fl or through TV 

speaker. 

□ Load/aave faoLHtlc*, 

ONLY £9.99 

STATE TAPE OR DISK 

COM-DRUM EDITOR 

J ^* drum luundi supplied on disk to 
enable yuu to construct your own 
drum kit. 

I J Re -arrange sounds supplied with s 

Corn-Drum to make new kit*. 
Q Load/sava facilities. 




DEEP SCAN BURST NIBBLER™ 



J The most powerful! disk nibbler 
avaklable anywhere, at any price r 
Burst Nibbler Is actually a two part 
system - a software package * a 
parallel cable to connect the 1541/ 
1570/1571 to 64/128 (state type). 

^ What gives Burst WibbleT it's power? 
Conventional nibPlers have to 
decode the data from the disk 
before It can transfer It using the 
serial bus - when nun standard data 
Is encountered they are beat. Burnt 
Nibbler transfers data at raw OCR 
code via the parallel cable without 
the need to decode It so yon get a 
perfect copy of the original. 

□ ■ Will nibble up to 4 1 tracks 
at Copy a whole disk In under 1 
minutes # Full instructions 

ONLY £24.99 

SOFTWARE r J a Qn 
ONLY *» 1 



* Regular update* ■ we always 
ship the latest * Fitted In 
minutes - no soldering usually 
required * Full or 1/2 tracks 
4 No need to buy parallel cable if 
you hare Disk Damon/Dolphin etc. 
f> Cable has throughbu* extension 
for other add ana. 
Wether to choose FaatHack'ern or 
Burst Kibbler? Fast Hack'em is 
unbeatable value as an "all rounder 11 
- with nibbler*, 1 or 2 drive copy, 
format, file copy. 107 1 copy etc, 
etc., so- If yuu have a more general 
requirement perhaps Fast Hack 'em 
IS EOr you, Burst Nibbler Is a pure 
nibbler second to none, for the 
reasons stated. So If It's just 
making backups you axe Interested 
in, there Is do other product to 
beat it l 



COMPLETE 



CABLE 
ONLY 



£1 4.99 




ROBOTEK 64 

MODEL ft ROBOT CONTROL 
MADE EASY. 

J 4 output channels - each with 

onboard relay, 
_J 4 id put channels - each fully 

buffered TTL level sa using. 

Analogue input with full S bit 

conversion . 
^ Voice input for voice control. 
^ Software features:- teat mode/ 

analog uc me a s lire me nt / voice 

activate/digital readout etc. 

only £39.99 

INCLUDING HARDWARE SOFTWARE 
MIC. ETC n [STATE TAPE OH DISK|. 




TOOLKIT IV 



THE ULTIMATE DISK TOOLKIT FOR THE 1540/1541. 




ONLY £4.99 



DISK OK LT 



DATA RECORDER 

J Quality Commodore compatible 
data recorder, 

Q Pause control, counter, eto- 

□ Btdtable for £4/138 

Q fiend now for quick delivery - 



ONLY £1 6.99 OHLY £24.99 



J A diss: toolkit Is an absolute must 
for the serious disk hacker. Toolkit 
IV has more features than most for 
less. 

Q DISC DOCTOR V2 - Read & write 
any track At sector including extra 
ft renumbered tracks. Repair 
damaged sectors. Look underneath 
read errora. 

□ HEADER/OAF ED [TOR - Decodes & 
displays ALL header Information 
including off bytes & header gap. 
Rewrite the entire header ft header 
gap. Renumber sectors- Also edit 
My sector tail gap, 

Q DISK LOOK - Sort directory. 

Recover lost files. Display file start 
/end addresses. Disassemble any die 
program directly from the dU-k to 
SCREEN or PRJNTER including 
undocumented opcodes. Edit Bam. 

□ FILE COMPACTOR - Can compact 
machine programs by up to 110%, 
Save disk space. Compacted 
programs run as norms! 

COM 1 



PAAT DISK COPT - Copy an entire 
disk In £ minutes or less using 
single 1941, 

FAST FILE COPT - Selective file 
copy. Work* st up to 6 times 
normal speed. 



J FORMATTER - 10 second format an 
entire disk or format any individual 
track or half track 0 to 41. Re-define 
any of 30 parameters to create or 
recreate unique disk formats 

□ ERHOn EDIT - gulcsJy find ft 

recreate all read errors Including 
extras & renumbered tracks or 
sectors & half tracks from 0 to 41. 
Even recreates data under errors * 
sllows yon to redefine anv 
necessary osjanieter*. 



a 



□ 
□ 



ONLY 



£9.99 
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NEW 

CLONEMASTER 

; J The most efTcctiYe tape to tape 
tack-up board available, 
Maiet perfect bat tup ■ of ynur tapes 
easily ft efTec lively!! 
J N« user knowledge needed, at all. 
J On board TTL logic clr cultry 
actually shapes- the pragmai ft 
aenda. a perfect ^ignul to the record 
esasett* - producing a copy better 
than the origlcnsl In many cqhi. 
_| L.E.D. indicator Mhcvwx when data 
I*, being transferred: to avoid 
cxetilvc tape winding, 
_J WtirkH with mlmnat any prcigrjun 
including molt! -loaders , turbos ft 
eren. Tory unusual type turbos. 
Q Requires access to twa C9H 

coraoatlhle data recorders. 
Q Simply prea* PJaf 1 on, Me recorder 
& pre** HtCOrd 1 On tbe other - 
that's it ! 

[J V&u can cviin mjifcr a backup while 

you are loading the program, 
J This in a total bardwure solution - 
no programs to load - the results 
ore atunningr 

ONLY £9.99 




TURBO 
ROM 



TURBO RDM II IS A 
REPLACEMENT FOR THE 
ACTUAL KERftAL INSIDE 
YOUR 64. IT PROVIDES 
SUPERFAST IvOAP/SAVE 
ROUTINES. 

□ Loads most program* at 5-6 times 
normal speedy 

_| Sores at S-G times normal speed til 
well. 

_J Improved DOS support Including 

10 StC, Form lit 
J Programed function keys:- load, 

directory, old. etc. 
fj Return to normal kernel at a flick 

of a snitch. 

□ PCOFT-a&D bl£Hk file noplrr. 

□ FLOAD-speclai I/O loader. 
| J Pius lot* more, 

! J Fitted in minutes - no soldering 
usuallly required. [On some (34 & 
tbe aid ROM may huvn trs he 
desoldered). 

ONLY £14.99 



— SMART CART 



TARE/ 
K|. 




BLUE CHIP DRIVE 



Ml. 

inllwt 



file 



rmat an 
dividual 
Re-define 
ate or 



ft 

udlng 

• or 

i to 41. 
■nor* ft 




f] Externa] power supply for cool 
operation-, 

[_J Even varies La 1G71 double sided 
mode mode], 

Q Fully CH4/13B Compatible. 

; J Tils drive la now probably the moot 
compatible drive available for the 
Commodore. More so than even 
Commodores own 1S-41C". 

' _J Supplied complete with all cables - 
no more to buy. 

_J At ]aat. a top quality dtivt at a 
sensible price, 



£129.99 



ONLY 

ADD £5.00 FOR COURIER DELIVERY 



ULTRA CRUNCHER FAST HACK EM 



TH 



3 The ultimate cartridge based 

program compactor. 
i_J Compact fc by up to 30%r 
_| 3 compacting pitigr&m* on one 
cartridge. 

Fast loading/saving routinei. 
Full DOS support Including mat 
format, 

ONLY £1 2.99 

Available as chip only for 2MK 
Suporom Board for 

ONLY £7.99 



Q tffulti Module Disk Nlbfaler * all Od 
one disk. 

□ Single 1541 Nibbler - Copy a disk in 
2 minute*. 

J Super fast File Copjf - undrr 3 

seconds typically. 

_J Plus unique Parameterc" mode. 
These files "unlock" the more 
heavily protected program h with \i 
parameter for a particular brand or 
even single program. 

■_| No atber product is such a good "All 
Rounder" at this price, Ir 

ONLY £9.99 



Q 32K pseudo ROM. 

l_J Lithium battery lasts up to o years. 

J Simply load the program you require 
- then Hick the * witch. Tbe cartridge 
can then oe removed Just like a 
HOM cartridge,. 

Moke your own cartridge* including 
autostart type* - without EPROM 
burner. 32K version - 4i8K page*. 
J Some knowledge of M/G la belpful 
but full Instructions Included. 

J I/O 2 slot open for special 
programing techniques. 



ONLY 



£29.99 



RAM DISK 

J Turn your Smart Cart Into a n2K 

Rsm/disk. 
j 32K of instant storage area for 

Sic s / pr ojjrama . 
□ Disk type commands:- load, save, 

directory, scratch. 
13 Progrtim data retained when 

computer Is switched off! 
_J Full command set with instruction*. 

ONLY £9.99 



EPROMMER 64 



□ A tap quality, cssy-to-use EPROM 
prOgrumrr for the 64/ 12&, 

fj Fully menu driven software/ 
hardware package makes 
pr ogramlnji /reading/verifying/ 
copying EFROMa simplicity Itself. 

Q| Will program 2718, 27*54, 27128 Ac 
2-7256 chips. 12.$, 21 or 25 volts, 

3 Fit b Into user port for maximum 
compatibility with cartridges/ 
SupttrEtm Ro?rd etc 

_| Full feature system - all functions 
covered Ufcc device check /verify. 

J We hclicvc Eprommer &4 la the motrt 
^nmprehenaive. most frtend]j ft beat 
value tor money programer available 
for the 64/12B. 

^ [deal comparilon for Supcrom Board, 
Cartridge development System, our 
kenwl cEponders or Indeed any 
EPROM hose project, 

□ Comes complete with Instructions - 
plus the cartridge handbook. 

ONLY £39.99 

COMPLETE 



ROBOT ARM 

f] Explore the faclnatlng science of 
Robotics with this lull feature 
RohotArm. 

I J Human like dexterity - with 5 axis 
of movement it in n.c* vrrqjullf. ir 
can manlpula'te smaH objects with 
amazing ability. 

(3 Comes with Accesorles Including 
'Finger 1 Jaws, Magnetic Attachment, 
Shovel Scoop, 4 StabllixlTig Suction 
Legs- etc. 



Q Easily cnntrCllcd using 2 Joysticks 
I any 3 pin type) or connected lei 
your computer with our interlace/ 
Software to jflve Computer /Robotic 
control (see Interface OrfeiJ. 

Q Use* 4 HP2 batteriea [not supplied) 
to power motor movement so uoca 
no computer power. 

_J Sell contained, ready to use- (except 
batteries. Joystick*!. 

only £49.99 



INTERFACE OFFER 

r_| Unique Software /Hardware package 
to allow you to Interface your 
computer with the Robctarm. 

Q Train mode sHows you to store ft 
then repeat movement sequences. 



ij Very eaay to use, 

_| Thla interface isn't needed to use the 
Robotarm but interfacing with ycur 
computer haa great posalbllirles, 

ONLY £24.99 

COMPLETE WITH CABLES 



ALL ORDERS NORMALLY DESPATCHED WITHIN 48 HRS 

HOW TO ORDER .., 



PHONE 

□ t? S 

0782 744707 
24hr Credit 
Card Line 



BY POST 



^>tDd cheques /Pt>» iikudR 
payable to "Date! 
Electronics" 



FAX 

07&2 7442B2 

UK ORUERS POST FREE 
et:hopi ADD £L 
OVERSEAS ADD £3 



PRICES AMD SPECIFICATIONS CORRECT AT TIB4E OF PRESS 
AND SUBJECT TO CHANGE WITHOUT NOTICE 



CALLERS WELCOME - Please reserve good* by telephone prior to visit. 



dAtel 

ELECTulOniCS 



DATEL ELECTRONICS LTD., FENTON INDUSTRIAL ESTATE 
GOVAN ROAD, FENTON. STOKE-ON TRENT, ENGLAND. 



SALES ONLY 

07S2 744707 



TECHNICAL ONLY 

07S2 744324 



COM 1 
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| FEATURES I 


• Graphics Guide 


10 


• Operation Wolf 


28 


Get better graphics from your commodore 




Arcade action 






1 7 


• Pilot 


36 


J 1JU *.1JJU > IJU.J I ICL l\. IJJJIL I d.^d. 1 1 L S L. 1,11c W IJllU 




A programmer's language 


• Microprose Soccer 


20 




A game of two halves 




• Tank Attack 


38 


• Pac Mania 


25 


An unusual new war game 




Ldicbt variation on t tit; racnian theme 




• Power Play Hockey 


43 


• TKO 


26 


A tough new ice hockey game 




An exciting new boxing simulation 




* Introduction to Graphics 




• Risk 


27 


on the C64 


45 


A new version of the classic boardgame 




Discover the graphics potential of the C64 





| REGULARS I 


• Data Statements 


6 


• Relative File Programming 


50 


More news from the world of Commodore 




Some more expert filing advice 




• A Flo w of Ideas 


21 


• Letters 


51 


More about flowcharts 




Long live the C128 




■ Software Spellbook 


23 


• Routine Matters 


52 


The mysteries of machine code 




Expanding your library of handy routines 




• Extending Basic 


29 


• First Steps 


54 


Adding commands to your C64 




Error messages on the C16, CI 28 and Plus 4 




• Games Update 


33 


• Contributions 


55 


The latest games for the C64 and 128 




How to write for Your Commodore 




• Technical Troubles 


40 


• Back Page 


90 


Our technical agony aunt 




Corrections, info and 'The Nibbles' 





| PROGRAMS | 


• Letter Writer 14 


• Personal File 


44 


Perfect printed letters without a wordprocessor 


Avoid time-consuming editing procedures 




• Basic Workshop 32 


• Electronic Notebook 


56 


A new program to help you avoid typing all 


A personal diary on disk 




keywords 




• Sprite Library 42 


• Head for Home 


57 


More tips on sprite manipulation 


Boardgame fun for the C16 
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Radio i Jock v Bruno Brooks (tefih does the Commodore Shaw 



ABC] 



Rl DJ Meets CBM 



Radio 1 disk jockey 
Bruno Brooks was 
given the works at the 
Commodore Christmas 
Show - in more than one 
sense. Apart from being 
given VIP treatment from 
Commodore boss Steve 
Franklin, Bruno was also 
presented with a copy of The 
Works by Brown and Wagh 
Direct \s MD, Jim Housego, 



Of special interest to the 
Amiga-owning DJ was the 
many music exhibits. Nigel 
Jones t Commodore^ answer 
to Stock, Aitken and 
Waterman, put the M1DT- 
linked computer through its 
paces. 

Who knows, maybe 
some of the jingles on Radio 
1 may be Amiga assisted in 
the future. 



Daisies For Epson 



Printer manufacturers, 
Epson, have started the 
New year by relocating all 
the way to Hemel Hemp- 
stead from their Wembley 
offices. 

The printing company 1 * 
new address is Epson (UK), 
Ltd, Campus 100, May lands 
Avenue, Hemel Hempstead s 
Herts HP2 7 HZ, Tel: (0442) 
61144, 
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► 



CBM Roadshow 



Commodore arc going to 
school during the early 
part of this year as their 
education team hits the 
road, An initial trial was 
made by holding an 
exhibition at Middlesex 
Polytechnic's Bounds Green 
site, and it proved that there 
was sufficient interest from 



educationalists to give the 
green light to the roadshow. 

At the polytechnic, the 
Amiga and PC were put 
through their paces, and the 
new Acorn BBC emulator 
aroused a lot of interest as 
a possible bridge to the 
current machines possessed 
by schools. 

Dates and venues for the 
roadshow have yet to be 



announced, but Peter 
Talbot, Commodore's 
National Sales Manager for 
Education, has high hopes - 
"I was delighted both with 
the turnout and the calibre 
of people attending our 
show. This is definitely going 
to become an annual event. 

lt Our 1988 education 
initiative has seen 
Commodore making major 



inroads on the education 
market, and 1989 will be 
even better." 

Toachline: CBM (UK) Ltd, 
Commodore House, The 
Switchback, Gardner Road, 
Maidenhead, Berks $16 
7XA, 



Commodore's Fiona Grahamslaw 
at the Computers in Education 
Exhibition 




Commodore 

t^grm TO EDUCATION 




Sexist Software 



OASIS is an organisation 
with a mission - to save 
the fair sex from the unfair 
sex in the computer world. 
Sandra Vogel feels that 
women get a raw deal when 
it comes u> the advertising 
and content of computer 
games, and has formed the 
Organisation Against 
Sexism in Software to bring 
pressure to bear on the 
offending software houses. 

This industry has no real 
watchdog to ensure that a 
standard of moral values is 
maintained, and this latest 
move has been made in 



response to the 
unfavourable portrayal of 
women. According to 
OASIS, women are mainly 
portrayed either as busty 
bimbos, or else weak 
creatures who must be 
rescued from perilous 
situations by macho heroes. 
More than this, too much 
software is produced to 
appeal to the male ego, 
limiting the encouragement 
of female participation. 

Although computer 
gameplaying is still very 
much a male preserve, the 
number of female computer 



enthusiasts is growing. 
Sandra does not expect 
special status to be given to 
women, merely an 
acceptance that they do exist 
by avoidance of the standard 
male/ female stereotypes in 
advertising, and gender 
determination in suitable 
games. 

OASIS already has an 
active membership, but is 
eager to recruit any Tom, 
Dick or Harriet who 
sympathises with the cause. 
An anual subscription costs 
£3, and includes six issues of 
the organisation's bi- 



monthly magazine 

One example of sexism 
which is heavily criticised in 
the first issue of the OASIS 
magazine is Palace 
Software's fiarbarian 
promotion, which features 
the pneumatic charms of 
Maria Whittaker. Is it 
sexploitation, or merely a 
storm in a D-cup? 



T&ucklme: OASIS, Sandra 
Vogel, 3 A I den Court, 
Stanley Road, Hih!edon, 
London SWi98Ra 
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llyTDS Industries UK has 
It JLun veiled its new PC 
Trolley, but owners of 
Com mod re computers 
shouldn't be put off by the 



Summit For 
Nothing 



Summit Software ran a 
competition last 
summer, and the prize of a 
collection of mint condition, 
prc-decimalisation coins was 
recently awarded to Alan 
Clark from CamberwelL 

The competition was 
set to mark the launch of the 
Summit label by Alternative 
Software boss Roger Hulley. 
Based on the fiscal theme of 
the game Sum-it^ which was 
devised by Roger's father in 
the Thirties, the competitors 
had to convert the £2,99 
price of Summit titles into 
old LSD currency. Alan was 
the .sender of the first correct 
entry picked from the hat 
and cashed in on the prize, 

Two forthcoming 
releases from Summit are 
Johnson Scanatron^ The 
Double (now Goliath 
Games) and Database's 
Mini Office. Summit's full- 
price sister label. Again 
Again, has released a game 
based on last year's trouble 
in the Arabian Gulf. 
Op erat in n Ho rm uz t 

programmed by Durrell, 
costs £9.99 on the C64, but 
the Amiga version won't 
follow until later this year. 

To u cklin e: Sum m it 

Software, Units 3-6, 
Baileygate Industrial Estate, 
Port refract. West Yarks 
WF8 ' 2LN. Tel: (0977) 
797777. 



title, because an Amiga or 
its ancestors would look just 
as smart. 

The trolley is supplied 
with a four-way power 
board, and is designed so 
that it can be pulled over any 
standard height desk or 
table. The range of finishes 
available are light grey 
laminte, decorative teak or 
an appetizing bitter 
chocolate, 

Touchline: MDS /fid us tries 
(UK) Lnl Factory No !, 
Eb herns Road, Heme I 
Hempstead. Herts HPS 
9QS. Tel (0442)23105. 



Seikosha Assault 



Following a £2.5 million 
investment, Seikosha 
UK plans a three year push 
to become one of the top 
printer manufacturers in 
Britain. 

Seasoned Commodore 
owners may remember that 
the CUM VIC 1525 printer 
was a thinly disguised 
Seikosha machine, but since 
those dim and distant days 
Seikosha has entered the 
new age of technology. Last 
year saw the release of the 
heavy duty SBPIO printer, 
which leached the heady 
speed of SOOcps. making it 
the fastest dot matrix printer 
currently available. 

1989 sees the start of the 
market assault with the 



Artful Clues 



Electronic Arts has 
published a series of 
detailed clue books for its 
ever-growing range of 
roleplaying adventures, 
Deathlord, Wasteland, The 
Mars Saga, and Bards Tale 
J. //, and /// players can buy 
the books from EA's 
Customer Services 
department for £5 each. 
Touchline: Electronic A fits, 
Customer Services, Langley 
Bu s in ess Cen ire, 11-49 
Station Road, Lang ley, 
Slough, Berks SL3 8 YN. Tel 
(0753)46465. 



launch of a LED printer, 
OP- 1 05 A, as an alternative 
to the Laser technology 
favoured by other 
companies. This will be 
supplemented by the release 
of two new printers later in 
the year. 

The announcement 
coincides with the opening 
of the company's new 
factory in Hamburg, which 
follows the example set by 
Star and Fpson to avoid the 
printer tariffs imposed by 
the European Community. 

Touchline: Seikosha (UK) 
Ltd, Unit 14, Poyle 14, 
New lands Drive, 
Colnbrook. Slough, 
Berkshire SB ODX. 




Seikosha 'i new, compact LED 



Active Signings 



Activist on has signed two 
_new labels and a 
development house as part 
of its continuing search for 
new talent. The development 
house, New Frontier 
Productions, is the latest 
venture for David 
Crosweller, who previously 
headed Infogrames in 
Britain. The deal promises a 
steady flow of games over 
the next two years, 
commencing in late summer, 
The first of the new labels 
is a group of programmers 
who are all known to 
Activision through their 
mutual links with System 3. 
Vivid Images consists of 
Last Ninja and Ikari 
Warriors programmer John 
Twiddy\ graphic artists 
Hugh Riley, and Mev Dine, 
whose credits include the 
conversion of Last Ninja 2 
to Z80 format. The new label 
gives the team a more 
positive profile, and will 
hopefully bring them the 
recognition they deserve, 

Motion Picture House is 
the second label, and will 
support individual authors 
and development houses. 
The label will also be used 
by the development team, 
which will be appointed to 
produce games for the 
Nintendo games machine. 

Rod Cousens, Vice- 
President of Activision 
Europe, comments, "David 
has pulled together a very 
talented team, and we look 
forward to seeing an 
exceptional product line-up 
from New Frontier. 

"The addition of Vivid 
Images Ltd and Motion 
Picture House to our group 
is further evidence of the 
great strides which we have 
made over the last year. Wc 
continue to attract and 
invest in new talent which, 
in turn, strengthens our 
position within the 
industry, " 

Touchline: Activision (UK) 
Ltd, Bfake House, Manor 
Farm Road, Reading, ftrrkx 
RG2 OJN. Tel: (0734) 
311666, 
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DIMENSION 

computers Ltd. 



40/50 High Street 
Leicester LE1 5YN 
Tel: (0533) 
517479/21874 
THE MIDLAND'S LARGEST COMPUTER STORE 




AMIGA RANGE 



AMIGA 82000 PACK 

Amiga B2000 Computer, CDmrnadore 

1084 Monitor, PC/XT Bridgeboard. 

20Mb Hard Disc £1,399.00 + VAT 



AMIGA AS0D PACK 1 

with Mouse, Workbench, Basic and 

TV Modulator £359.00 



PH HUPS B80 2 CD LOU R M ON I TO R 

Including FflEE Phillips TV Tuflfrr , , £224.95 

AmiflaBZOOQ Computer £1.079.00 

Commodore 1084 Colour Monitor t269-95 

Phillips 6633 Colour Monitor £224.95 

TriloflicAudio Digiti&er £27.95 

AFB60 1MbA500 3.5" External Drift E89.95 

Cumana 1Mb A500 3.5' External Dnvfl E94.45 

Amiga Power Supply Unit , C59.95 

Interna I A£D0Q 2nd Drive £79,95 

Amifla M»di Interface £34.95 

Digiview Colour Dig itisnr C13S.S5 

Supra 30Mb ASDOHa^d Disc £699.00 

2Mb Internal RAM Expansion £449.00 

PAL Genlock A5Q0/A?OOO . E219.95 

HAM Upgrade £129-95 

Future Sound Dig iti&er, including 
microphone E169.95 



AMIGA A500 plus 




PHILLIPS 8833 STEREO 




MONITOR 


£569.00 


AMIGA A5D0 plus 




COMMODORE 1084 MONITOR - 


£629.00 



AMIGA A500 PACK 2 

with Mouse. Workbench Basic, 

TV Modulator, Formula 1 ; Footman, Viper, 

Mousetrap and Plutos £379.00 



STAR LC 1 0 COLO Ufi DOT MfflRM 

» 1?QcpsDralU0cps WLQ 

* 6 Resident Fonls and 6 Print Pilches 

» Draft anoNLO in all Fonls and Colours 

* 7 Colours pi u & M u Iti pi e £ hade G rap hi c s 
Includes AMIGA Printer Lead 



£249.95 



AMIGA A500 PACK 3 

witti Mouse, Workbench, Basic Photon 
Paint, TV Modulator, plus SUPERBASE 
Database .... £399.00 



PHOTON PAINT 

The AMIGA'S most poweM ul graphics pack £69.95 



AMIGA SUPt HBA&E FEHSCNAL DATABASE 

« Ertrem e 'y pawe rf u I yet easy to u *e 

r Flexible Fi Ig Structure a nd Oef i rtitio n 

" Powe rf u I Report Gen e rata r 

^ Over 150,000 users jSSf&T 



CBM64 YAMAHA PACK 

Con node re C?N Dtfa Records' 3C- Gar- c-g Pick 
Bush Walkman plus VAMAHA SHS10 MIDI COMPATIBLE 
KEYBOARD £159.95 



CBM Q4 OLYMPIC PACK 

Commodore 64, C2« Data Recorder. Guicfcshot 2 Joystick. 
10 Sports Danes plusZo" Arcade Games £149.95 



CBM64 HOLLYWOOD PACK 

Comnodore 64. C2N Data Recorder, flu icksnol 2 Joystick. 
5 Hollywood Games. 5 TV Qui? Games, plus 25 Arcad* 
Gancs £149.95 



PRJNT11HK 

Allows AMIGA to use C&M Serial Or Slindard CenUoniCS 
Prinlers. wilti itie Bonus ol a 60K Bulfer. x 

CBM Senal only £34.95 

CBM Serial plus User Port to Centronics , E44.95 



PR I HTtR BIB BON OFFER 

MPS a01,ft02, Citaen 120Dand 

5larNLlOmboon 5 

MPS 603 & MPS 1000 

DPS 11 U1 M i,l1 1 Strike 

BUY FOUR AND GET ONE FREE! 



E5.95 
L' Jr. 

E3.50 



STABLC10 D07 MATRIX PRINTER 

■ 120 c-p-b Draii. 30 ci>s NLO 

■ F'ici:on and Tractor Feed 

* Pape r Par line Faci lily 

* 6 Resided Fonts and & Oilier* nt Print Pilches 
Seledable from Front Mod e Select Panel 

Com nodore Ser ial o r Centrom es 

Conrnodore 64/123 Colour Version 



LIMITED OFFER 

COMMODORE 1561 3.5" DISC DRIVE 



t2l4.1l5 
£249.95 



THCNEW1541 II DISC DRIVE 


.... zm.% 


OCEANIC OC 11 BW 


£129,95 


1 Commod ore Compati ble Disc Drive 




1 Botfi include 




Software Pack 




1? Selected Disc-Based Gameyuidities 





SUPER C 

CBN 10 CEfilronics Pnrilcr Inttff aoe 
MPS m TRACTOR FEED UNIT . 
CBMfrf ?!?EK UPGRADE 

C5MPOSFR/EDITOR SOFTWARE 

Fo> r Music Expansion System. Tape or Disc 

ACTION REPLAY Mk 5 PRO 

Tapeio Disc Baclf-up Cartridge 

NEDS MOUSE 

Wilti CHEESE Software. Tape of Disc 

CO MMOOOBFCZN DATA RECORDER ..... 



t34.95 

£129 95 
E24.°-5 

C29.95 



REMARKABLE CO MM 00 ORE PC 1 OFFER 

Unbearably priced PC/XT compatible, including extremely 
compart base unit, detachable keyboard and monitor. 
Comp alible with all major PC/XT soUware, me PCI now 
represent me lowest price lor speciFicaiion PCcompaiible 
in the UK. 

• &DS8.'"4.77Mk2 Processor 

* RAM 

■ Serial and Parallel Ports 

« M&DOS 3.2 and GW Basic included 

Far a linhed penoc . the °C1 a'&o includes ABLE ONE 

integrand Spreadsheet, Word processor and Daiabase 

package (us jal price C 113 .00 1 

PCI with Mono Monitor E299-99 + VAT 

PCI with CGA Colour Morirtor E449.DQ4VAT 

PCI Package without Monitor. 

Compel ib le: with CGM 1034 and most 

CG A.' Herc*j les monitors £269. OA + VAT 



r 



CITIZEN 120D DOT MATRIX PRINTER 

Commodores i alon 

(with 64/128 Printer Lead) 

Centronics version 

(with AM IGA Printer Lead) 

Commodore 1901 Co lo lt M on ilo r 

Philips 64V 123 Green Screen Muni I or 

MP& 12GQP Dd* Matrix Printer, Centronics . 
MPS tSOOC 7 Colour Dot Matrix Cenlronics 
1561 3i* Disc Drive including 10 m 3j" Discs 



£139.95 

m&.&5 

£219.95 
£339.95 
1199.95 



PRECISION 

Superscript ft £2*,&5 

Superba&e64 £24.95 

Superscripted 

&Superbase64 ; £44,95 

Superscript 12B ... £25.% 

Superbasei^e tag .9* 

Superscript 12B 

& Superbase 12fi CS4.ft5 

Superbase. The Book , ; . . E11.95 

SEOS Version 1.3 

CBM B4t]2% Operating System 

Including: Desktop. Geowme.Geopaint. and DeskAece&sorie& ( 
Disc 

CBM 64 £36.95 

C&M12B E34.95 

C0MH0QDRE1351 MOUSE 

Compatible with GEDS plus all GEOS Utilrties. 

Can?.ls:->b*'u:iod as Jcysticn £27.45 

GEODH.'DESKPACK £21.95 

GCOCALC&pfea<l sheet C24.95 

GEOCALC1ZB .. . £34.95 

GEOPUBLISH []hhM-:>P Publisher £34.95 

WRITERS WDfiKSH OP 121.05 

WRITE RS WORKSHOP 120 £34 95 

FQMTPACK1 £16.95 

GEOFILE Database £24.95 

GEOFlLE 12& £34.95 

GEOSraLLSpellcheker E16.95 

I CONTROLLER" 

Geos -com pahoi* Joystick. Fiis onto keyboard £iz.9S 

"FREE OF CHARGE WITH PURCHASES DF TWO OR MOHE 
ft EOS PACKAGES 

0 B M 64/ 1 28 and PLUS 4 CO MPANIES PACK 

Sa^esVPij rchase^ Nomina i Ledgers with invoicing and 

Slock Control. Disc £24.55 



PERSONAL CALLERS AND EXPORT ENQUIRIES WELCOME 

ALL OFFERS STRICTLY SUBJECT TO AVAILABILITY 
ALL PRICES SUBJECT TO C-HA NfjiE Wl I hOU T NOTICE 

ALL PRICES INCLUDE VAT UNLESS OTHERWISE STATED 

To Qrtifrr. ftflhgrsgndcbBquft.'P.O. wilh coupon or ring <0533>S1 7479/21574 witn 
ADCBBS-'Bafclaycard number Please allow 7 working days iof delivery Irom rece-ipi Ot order or 
cheque clearance 

Please add £ 1 00 towards ca^iagt and p4C*ir»g on ar*y saitware order. 
Hardware orders add C 1.00 under £65.00 value, and C5 .00overC:S5.00 M-alue. 
Printer coders add C5.00 towards carnage 

Send trj: Dept. No. YC 3. Dimensiort Computers Lid., 
40/50 High Street, Leicester LEI 5YN 
Tfrl- tftZw ?%i747fl/^1ft74 Fas- f OfiMi 51163*1 



Item 



Quantify 







Total 



.......... 



Price 



Name 

Address... 



............. 



T^l^nhfinfi" 



FEATURE 



Graphics 
Guide 



PVhat are graphics all 

about, and what do you 

need to get the best 

from your computer? 

C 

By Kerry Fowler ^ -ihtikil 




A stunning graphic display is one 
of the most difficult effects to 
utilise effectively. This is 
especially true of the C64 h but even 
the extended Basics of the CI 28, CI 6 
and Plus 4 don't solve the problems 
totally- To get the best effects, 
commercial graphics programs are 
essential, and then the decision is 
which input device to use: keyboard, 
joystick, mouse, Hghtpcn or graphics 
pad. 

One of the strongest features of 
Commodore computers is their 
graphics capabilities. Sprites, 
characters and high resolution (hi- res), 
combined with a fairly wide range of 
colours, can add impact to games and 
utilities. 

Hi-res graphics arc generally 
supported by most of the available 
packages, but sprite designers and 
character defines are few and far 
between. This is true to such an extent 
that when a well-known programmer, 
Tony Crowther, published his own 
sprite and character defining routines 
in Your Commodore (3 in 1 Editor, 
August 86), the magazine had many 
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enquiries from professional software 
houses who wished to use the program 
to design their own screens. This led 
to an updated version being created 
for our sister magazine, Commodore 
Disk User(l in 1 Plus, Nov/ Dec ^7). 

User-defined Characters 

Character graphics involves the 
redefinition of the standard 
character set of the Commodore- The 
standard graphics are the letters and 
characters featured on the keyboard, 
and they are all based upon an 8x8 
grid of pixels, A pixel is the smallest 
unit of a computer screen display - 
it's a single point of light which can 
be variously coloured to give the effect 
desired. 

Each pixel on a grid can be 
switched on or off. For example, to 
produce the letter ' A\ a character grid 
would take the formation shown in 
Figure I. The problem is that a 
Commodore video chip can only 
access I6K blocks of memory, as 
shown in the sample C64 Bank in 
Table 1. This means that the screen, 
positioned at location 1024, can only 



TABLE 1: 



grab its characters from locations 0 
through to 16383. The computer 
circumvents this limitation by 
hardware trickery, but the rule is one 
which can never be broken by the 
programmer. 

With the screen at 1024, the 
problem is that a Basic program uses 
the memory on either side of the screen 
- below the screen is the workspace 
for the ROM routine's variables and 
above it is Basic RAM for the program 
itself. This leaves very little space for 
any user defined graphics (UDGs), let 
alone sprites! 

There are two solutions to this 
problem; the start of Basic memory 
can be moved up, or the screen itself 
can be placed in one of the other 1GK 
blocks of memory. The authoritative 
guide to these methods is the relevant 
Programmer's Reference Guide from 
Commodore- 
Mighty Sprites 
Cuprites are l^e small independent 
kJ screens which can only display 
three extended characters measuring 
8x21 pixels. If a sprite pixel is not 
turned on t the pixel becomes 
transparent and any characters behind 
the sprite will show through, but if the 
pixel is turned on, the sprite masks 
the background detail. 

For some reason, Commodore 
decided not to implement sprites on 
the C 16 / Plus 4^ which probably helped 
to add to the machines' downfall, 
because many of the programs written 
for the C64 involved sprites and 
couldn't easily be transferred to the 
newer computers. 

Characters and sprites can be 
displayed as a single coloured sprite 
or multicoloured. Single-coloured or 
standard mode means that all of the 
turned on pixels are displayed in the 
same selected foreground colour, 
though this can vary from one 
character to the next. Multicolour is 
a slight misnoma, but it does allow 
three colours to be used, 



24 
60 

102 

126 

m 

m 
0 



Table 1: CM Ranks Jot the VIC 
Decimal Hex 



49152-65535 
32768-49151 

16384-32767 
0-16383 



C000-FFFF 
8000-BFFF 
4GQ0-7FFF 
0000-3FFF 



Bank Number 

3 
2 
I 

0 
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As with standard mode, the 
foreground colour can he different for 
each individual character or sprite, but 
is the same Throughout Lhat particular 
character. The Two extra colours are 
the same for all of the characters on 
the screen. Although sprites follow the 
same rule, their extra colours are taken 
from different memory locations, 
which means that the two an ci Diary 
colours may be the same for all of the 
sprites, but can differ from the 
background characters. 

The only problem with multicolour 
is that character definition falls to 4xK 
pixels and 12x21 pixels for sprites. This 
means that the fine detail is not as good 
as for standard mode, and multicolour 
characters always have a jagged -edged 
appearance. 



Higher Resolution? 

High resolution is a misleading 
name, because the total number 
of screen pixels is the same as in 
standard low-resolution mode. The 
difference lies in the freedom which 
hi-res gives the user. 



Hi- res graphics work on a similar 
principal to character graphics, and 
this is an important point to bear in 
mind when designing a screen display 
in this mode. Up to 256 UDGs can 
be defined in low resolution. At best, 
these would cover about a quarter of 
the screen if they were laid end to end, 
row by row. Hi-res allows a screenful 
of 1000 different characters to be 
defined. 

The equivalent situation using 
UDGs, would mean reducing the 
screen to a 16x16 rede fin able grid of 
characters, because each of the 256 
characters can only be defined once. 
This gives a pixel resolution of 
128x128 instead of the full screen 
resolution of 640x200 pixels hence 
the justification of calling it high- 
resolution. 

Each character on a hi-res screen 
has a fixed position, but the rules of 
U DC defining applies. This is 
especially notable in multicolour 
mode, because each 8x8 character area 
can only hold a maximum of three 
colours. The extra colour facilities of 
hi-res does mean that neighbouring 



characters can have three different 
multicolours, but the 8x8 pixel grid 
governs what can be done. 

Pack Selection 

There have been many graphics 
packs for designing hi-res images, 
but 1 don't know of any currently 
available packages for sprite or 
character definition which offer good 
value for money. 

Trilogies Expert cartridge system 
does have a sprite designer included 
in the package, but if this is the only 
facility which is of interest, then the 
price of £29.99 is a rather high one 
to pay. The best course of action is 
to check Your Commodore, and to 
look for the numerous sprite and 
character defining programs which 
crop up from time to time, 

Hi-res packages are shown in the 
Touchline at the end of this article and 
typical features would include 
freehand drawing, Tilled and outlined 
shapes (principally circles and 
rectangles)* single and connected lines, 
text mode, spray fill, solid fill, a range 
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of brush sizes, and zoom for closing 
in to add fine detail. 

There are additional desirable 
features such as windowing. This is the 
ability to select an area of the screen 
and repeat it elsewhere. This saves the 
need to redraw similar characters, 
because it can he "grabbed*, moved and 
then modified using the zoom facility. 
To get the best from the graphics 
screen, a pattern fill routine of some 
kind can create convincing .shading 
effects to add an extra dimension to 
otherwise 2D images. Patterning can 
also take the drudgery out of creating 
repetitive shapes such as the bricks in 
a wall or wallpaper, 

A vital feature is usually called 
UNDO. This is most desirable when 
a FILL command goes wrong, 
Without UNDO, the image could be 
ruined beyond repair, with UNDO a 
press of a button can restore the image 
to its original state. 

To fully utilise an image created 
by a graphics package, the user needs 
to know where the various elements 
are stored. Since this is rarely in the 
normal screen position (1024), it is also 
necessary to understand screen 
banking, so a good graphics book is 
essential For hi -res. the Programmer's 
Reference Guide is not very useful, but 
there arc many guides available in 
good bookshops just check the index 
for a reference to banking, screen 
moving or something similar. 

Graphic Aids 

For most people, the cheapest tool 
for graphics is the joystick because 
it can be used for graphics or 
game playing. My own preference is a 
mouse, because it can be more easily 
operated with one hand. Even if this 
only means that the other hand is free 
to hold a cup of coffee, T find the use 
of a mouse more relaxing. 

Keyboard control is another 
consideration, and sometimes offers 
the most accurate control system. 
Unless you are a touch typist, the 
problem is that it is tedious to watch 
the keyboard with one eye, and the 
screen with the other. 

Several packages offer light pens as 
input devices. In my experience, these 
are wonderful devices which most 
closely relate to drawing on paper, but 
control lacks the accuracy of joysticks 
and mice. The problem lies in the 
manner in which these devices work. 

When a television or monitor 
draws a screen, the image is created 
by a stream of electrons being scanned 



across the lines of a screen. When an 
electron hits the phosphor coated 
screen energy is dissipated in the form 
of light. The greater the number of 
collisions, the brighter the light given 
off. 

The electron gun therefore varies 
the number of electrons aimed at any 
point on the screen to create the light 
and dark areas of the image. In colour 
monitors, there are at least three guns 
which represent the primary colours 
which can be mixed to create the full 
range of hues and tints which makes 
up a colour image. 

Each gun starts at the top left of 
the screen, and scans across the top 
line. Then it flies back to the left side 
of the next line and scans the next row 
This continues until the bottom line 
is reached and completed, then the 
guns are all redirected back to the top 
left of the screen, and the process starts 
again. 

Each point on the phosphor screen 
acts like a red-hot poker which has 
just been removed from the fire, it 
fades, The fade actually only takes a 
very tiny fraction of a second, and the 
first dot may be extinguished before 
the scan reaches the bottom line, but 
the whole process is so rapid that the 
eye cannot perceive this. 

A computer initiates the screen 
scan, and can calculate where the guns 
are pointing at any particular time, If 
a light sensor is placed in front of the 
screen, it can calculate when the 
phosphor area in front of it is excited 
by registering the light that bursts 
forth. The computer can then calculate 
the time delay between triggering the 
screen scan, and the light sensor 
detecting the effect of the guns passing 
a particular spot. This allows a pixel 
in the computer's memory to be 
selected and operated on, according to 
the dictates of the software running 
at that time. 

The problem is in getting pixel 
accuracy. Some software is severely 
affected by interrupts which can delay 
reading of the lightpen sufficiently to 
displace the perceived position of the 
pen, once the calculation has been 
done. This normally manifests itself 
as a twitching of the cursor on the 
display screen, or a line becoming 
broken or kinked as the pen is moved 
across the screen. 

Graphic pads work on a different 
system. Imagine a crisscross grid of 
wires which are embedded in a plastic 
medium. The warp and weft of the grid 
is separated by a fraction of a 
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millimetre, so that slight pressure will 
connect the two wires. The net effect 
is one of a thousand tiny switches whic h 
correspond to each pixel on the screen. 
This is analogous to the situation 
inside a graphics pad, 

Once the signal is generated, 
internal electronics calculate which 
switch is operating, and sends the 
information to the computer, which 
then acts accordingly. The problem 
with a pad is that sometimes the point 
of the stylus is equidistant between two 
switches, and both are triggered. 
Usually the internal electronics will 
make an executive decision but 
sometimes one of the switches may 
constantly make and break and the 
screen cursor dances back and forth 
in sympathy. 

On the subject of pads, most 
software is produced for the Koala 
Pad, which is still available in the 
States, but try getting one over here! 
It's impossible. Microprosc market 
SunconTs misleadingly named 
Animation Station, which looks 
similar to the Koala but is totally 
incompatible with Koala software 
(based on experiments with Rainbird's 
OCP Studio), Fortunately, it does 
come with its own software (a pad- 
only version of Blazing Paddles), 
which is fairly comprehensive and the 
package is highly recommended for 
those who would like to try a graphics 
pad. 

Whichever device is used> graphics 
are the root of all successful programs. 
Text is fine and may be essential but 
an illustrated manuscript is far more 
impressive than a paperback! 

Touchline: 

Blazing Paddles £12.99 Datel 
Elect ranks with lightpen £24.99 
Graphics Support Utilities Disk £12.99 
Date! Electronics 

The A dvanced OCP A ri Studio £24,95 
Rainbtrd Softw are 
ArtM 64 £29,90 Wigmore House 
GEOS (Ge&write) Disk only £24.95 
Evesham Micros (free with Oceanic 
disk drive) 

NEOS Mouse £24.95 Dimension 
Computers 

Datef Mouse £24.99 Date! Electronics 
Animation Station £ Suncomj 
Microprose 

You may have noticed that these 
are all for the C64. GEOS 
incorporating GEO paint is available 
for the CI 28 at £32.95, but there 
appears to be nothing for the CI 6/ 
Plus4. 
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[> Award Maker Plus 

Honour arid thank people with more than just kind words or a 
letter-give them an award tftevT keep for ever. With Award 
Maker Plus you create professional quality certificates with 
coloured or black, detailed borders, specialised graphics h and 
personalized messages, ready for framing. 

Award Maker Plus is a software tool that lets you print awards, 
certificates, licenses, coupons, diplomas or other documents of 
your design. The program wiU print hundreds of predesigned 
Award Styles, allowing you to enter text, select the border style 
and colour, and in some styles even enter your own Hi-res 
pictures. Also, PrintShop graphics may be used as borders. The 
program comes complete with professional quality border 
designs, text fonts and graphic art. Only £24.95. 

G> 1164 RAM Expansion Unit {§8 

The Commodore 1764 RAM Expansion Unit adds 2S6K of storage 
capacity to the 6i four times the internal RAM, and comes with a 
replacement power supply to power both the computer and unit. 
RAMDOS software is supplied free to allow commercial protframs h 
written for the unit to use it as a second, lightning speed drive. 
The 1ZB4 Ihv.t is idea] for d roqrammers. GiEOS users and users who 
need a second drive. Only £99.35 

t> Paper Clip Publisher 

If youd like to create eye-catching layouts h but don't enjoy 
playing with scissors and glue, Paper Clip Publisher has the 
solution. This powerful page layout program for the Commodore 64 
lets you combine text from your favourite word processor and 
graphics from your favourite drawing program to create almost any 
layout you can think up, 

To place an article into your layout simply draw a box and pour in 
the test. Or draw several boxes and link them together, so the 
article is in several columns, or even on several pages. If you want 
the test to stand out, choose one of five fonts in any of four sizes. 
Then, give it some style-you can make it bold, italic, outlined, 
shadowed, reversed, or even upside down! Graphics are always a 
great way to get a readers attention PaperClip Publisher lets you 
use clip art from Doodle n Newsroom, Print Shop, Printmaster,. and 
Stop Press, You can also create simple graphics in PaperClip 
Publisher's Graphics Editor. Once you've selected a graphic 
ssmply pour it into your layout, then enlarge or reduce it to fit your 
specific needs. 

PaperClip Publisher is a powerful layout tool but, more important, it 
is also easy to use. Your tools are displayed right on your screen -~ 
you simply point and click with your joystick or mouse. Other 
powerful commands are available in pull-down menus, so you don't 
have to go searching through your manual to find a command. 
Whether you are creating a single-page advertisement or a 
multiple-page newsletter, PaperClip Publisher will help you get the 
job done quickly and professionally. Only £34,95, 



t> BillBoard Maker 

Are you restricted by the normal one page graphics? Would you 
like to be able to print posters tour feet by three feet? Now you 
can, usmg BillBoard Maker, store the graphic to disk from any of 
the popular drawing packages and then load it back with BillBoard 
Maker The optimizer will enlarge the display and also remove any 
jagged edges and then you can flip, crop, cut, mirror, strip colour, 
negative or frame the new image and then print it to your printer. 
Only £24.95. _ 

O Photo Finish ?|P 

This is a NLQ program. Near Laser Quality. On your dot matrix 
printer you can printout graphics with quality approaching that of a 
laser printer. It uses an optimizer which automatically computes 
the amount of available space between diagonal pixels and fills 
them in with additional pixels, before it prints out your picture. As 
a result your picture is drawn with smooth curves and diagonals 
rather than jagged edges. You can take almost any Hi-res picture 
and produce §40x400 resolution on almost any dot-matrix printer. 
This program is easily tested, print a picture and look at the 
curves made up of triangles, Photo Finish would round those 
edges. Only £24.95. 
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^ Project Planner 

Too much to manage at once? Where do you begin? Need some 
help to organize your work? Could you be more efficient? With 
Project Planner you and your micro can cut any problem or task 
down to size, isolate key tasks, and anticipate problems you had 
not foreseen, judge the importance of conflicting priorities, and 
recognize critical elements in any plan, work out how long the 
project will take and where money and time can be saved, display 
your plan as a clear chart then watch the effects when you modify 
and edit your plan. Only £14.95. 



ToyShop 

A balloon-powered steam engine, a medieval catapult, an 
accurate sundial, an early carousel with horses, a clockwork bank 
that runs on pennies and a rubber band powered helicopter are 
just a selection of the 20 models which can be produced with the 
aid of your computer Each of these toys is a marvel of 
engineering that you'll print out on ordinary computer paper and 
assemble yourself. ToyShop even includes a supply of card, wire, 
balloons, rubber bands and wood along with a comprehensive, 210 
page manual. Only £29. 9S. 

fci^ Fun Biorythms 

Print your own or a triends biorythms cycle in a chart form to 
printer. The cycle shows your physical, emotional and intellectual 
days over a set period. Only £4.95* 

L> Super Cat 

Super Cat allows you to catalogue your disk collection. You can 
catalogue up to 640 disks and SOO0 titles per catalogue, then at the 
press ot a key, search and find the location of that missing 
program. A variety of reports can be printed including programs in 
alphabetical order, programs by disk, three types of disk labels 
and more. Super Cat will sort 1000 programs in just & seconds. 
Only £19,95. 

Super Aide 

AH purpose utility program for the 64. Suoer Aide hides in 
memory in a safe, out of the way place, yet is immediately 
accessible at all times. Super Aide provides. Bi-directional screen 
scrolling, auto line numbering, line deletion, renumber, trace, a 
monitor, disassembler, disk directory display a file to screen, 
change this to that, find, unnew and more. Only £12+95. ^ 

> €4 Doctor |5g3i 

A professional diagnostic cartridge for the 64. It automatically 
tests and reports to screen the condition of the keyboard, serial 
and user ports, kernal ROM, video display chips, all video banks, 
NMI and IRQ interrupts, BASIC, CIA and sound chips. 64 Doctor 
comes with a free comprehensive fault and diagnosis and repair 
guide to allow you to repair the computer. Only £18.95. 

[> 1541 Repair and Maintenance Guide £^§1 

The repair and maintenance book unveils the electronics and 
mechanics of the 1541 disk drive. The concise presentation of the 
material and introduction to digital electronics assures that even if 
you have no previous experience in electronics you can still repair 
your disk drive. Topics covered include general maintenance, 
speed adjustments, lubrication techniques, differences in drive 
versions, testing, adjust read/write head and more. An excellent 

Snde 1 and useful when aligning your drive. Large A4 format 
nly £12.95. 3 



•GEOS 64 t £24, 95 

DeskPack Plus 64/128...... £21.95 

GEOSpell.^ , r £16.95 

GEOProgxamnier £32.95 

GEOFile 128 £32.93 

Official Programmers 

Guide , £1.95 

Anatomy of the 1S41 £4.95 

Graphics on the 64.... ..£4.95 

Machine Language,..., £4.95 

PrintShop. ..£29,95 

Newsroom £24,95 

Super Pascal,, £14.95 

CADFAK 64 , ,£24.95 



GEOS 128 £32.95 

FontPack Plus 64/128 £16 + 95 

GEOPublish L . £32.95 

GEOCalc 128 ...£32.95 

Becker Basic... £29.95 

Anatomy of the 64.,, ...£4.95 

Tricks and Tips B4 ......£4.95 

Ideas for your 64 £4,95 

Peeks and Pokes £4.95 

800 Clip Arts £19.95 

Super u. ......... , . £29.95 

Cobol 84.. ..££9.95 

Chart Pack 64„..„ £24.95 



Technique 
Basically Simple 
Comic Collector 
Easy Sign 
Label Maker 
PPM 64 

Pocket Planner 
Fontmaster 64 
Pocket Filer 
Pocket Writer 



Tutorial for programming graphics.......... £4.95 

Leant how to program Basic.,-.,. £4.95 

Organize your collection of comics. .,,..£4,95 

Learn to use the sign language.... £4.95 

Print over 10 different labels.., ,„,„ £19.95 

Look after and follow shares £39.95 

Spreadsheet with sideways.... ............ .....£39.95 

Word Processor with extra fonts £34.35 

Database with Report Writer. ,.,,£39. 95 

Word Processor .,.£39.95 



•Order wirh Access, VISA, Cheque or Postal Order, COD 
and Express delivery available, foreign orders add £2.50 
per package. Prices include VAT and postage. Please 
allow 14 days lor delivery. 

t5|3l Utilities and Educational catalogue 3 vaita ble - ca U (0386) SS3133 




18 High Street Pershore Worcs-WRlO IBG-Tel; (0386) 553153 
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If you don 't have 
access to a 
wordprocessor, 
but want to 
send a printed 
letter to someone, 
"Letter Writer* can 
help 




by A. Wright 



Writer 



Have you ever wanted to send 
someone a short letter that 
looked efficient? I s m sure 
many of us have sent one of those 
grovelling, pretty-please-type letters at 
some time or another. Well, the letter 
will look best if it's typewritten - after 
all, if your handwriting looks as 
though its been penned by a spider that 
spent the previous evening in a whisky 
bottle, you're not going to get very far. 
are you. 

This is where 'Letter Writer' comes 
to the rescue. It's not designed to be 
a wordprocessor program, it simply 
allows you to compose your letter 
quickly and then print out the finished 
masterpiece. One feature I'm sure users 
of 40 col Limn wordprocessor programs 



will appreciate ts the fact that the 
display is in 80 columns, and thus you 
can see each line on screen as it would 
appear on paper. 

Getting It All In 

Firstly, it's important to note that 
you must have a copy of the 
"ROM SO 4 " program by Jens Meyer, 
which gives the C64 an 80-coIumn 
screen display. This appeared in the 
January J 988 issue of Your Commo- 
dore. Also, note that both programs 
can be entered with or without the 
"ROM 80" program resident in 
memory. 

Type in Letter Writer and SAVE 
it to tape or disk, then type in Letter 



Printer, and SAVE it immediately 
after, I find it best to have the 
programs stored immediately after 
each other in the following order; 
ROM 80, Letter Writer, Letter Printer 

Using the program 



If you haven't already done so t 
LOAD and RUN the ROM 80 
program. Next, LOAD and RUN 
Letter Writer 2. If all is well, youll 
see the following: at the top of the 
screen is a copyright message; below 
this, on the left, is a row r and column 
count. Taking up the centre of the 
screen is a large box; this is the 
window* though which you will see 
your text. At the bottom is the message 
'PRESS "CTRL" FOR HELP 
SCREEN'. 

Type something (apart from 
"CTRL' 1 ) - you can enter anything 
except Commodore keyboard gra- 
phics, and the left and up-arrow keys. 
Notice that if you enter quotes, they 
don\ appear, but an up-arrow does, 
this is because printing quotes can have 
a weird effect. Don't worry! The 
arrows are exchanged for quotes just 
before printing. 

N + B,; when you enter text, the 
program has to check a lot of things 
before it PRINTs each character, and 
these checks slow the program down 
a little. As a result, if you are a fast 
typist, you may notice that the screen 
display doesn't quite keep up with you. 
This shouldn't be a problem, as the 
characters are stored in the keyboard 
buffer. However, the buffer only holds 
ten characters, so if you type fast, some 
characters may be missed. The only 
solution, Vm afraid, is to slow down! 

Right: on with the show, „ pressing 
RETURN, or reaching the end of a I 
line, will move the cursor to the 
beginning of the next line. Note that 
if there is any text on the next line, I 
the cursor will move to the end of that 
text. Pressing DELETE will erase the 
character on the left of the cursor. If I 
you are in the first column of a row, I 
pressing DELETE will move the I 
cursor to the line above, erasing the I 
last character on that line, If you wish I 
to move to the line above without 
deleting the last character, press the J 
up-arrow key. The cursor will move I 
to the correct position on the above 
line, If you move up or down on to I 
a line which already contains 60 1 
characters, the cursor will be in column I 
61, which is not normally possible. In I 
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see 



this situation, you cannot enter a 
character. You can only move up or 
down. 

Now, when you've reached the 
bottom of the box, and you fill the 
line or press RETURN, the text will 
scroll up by one line. When you are 
on the top line, and press the up-arrow 
key or delete past the beginning of the 
line, the text will scroll down by one 
line. Note that, you may only have up 
to 60 lines, and you can*t scroll up past 
line 1 or down past line 60. I chose 
60 tines as this is as many as can fit 
neatly onto an sheet of A4 paper. 

Being BASIC, the scroll routines 
are quite slow. If you find it's too slow 
for you, I suggest the following: 

When you reach the bottom line, and 
have entered the text for that line, press 
RETURN a few times (10 at most). 
Then, when the scrolling has finished, 
move the cursor up to the correct 
position and continue typing. 



THE OPTIONS 



Now that you know how to enter 
your text, it's time to learn what 
you can do with it. The first thing to 
do is press "CTRL** to access the help 
screen. You must go to the help screen 
before you can use any of the options. 

The top of the screen contains 
simple reminders about how to enter 
your text - the options are at the 
bottom. To select, simply enter the 
number which is to the left of the 
option you require. The options are: 

L RETURN TO TEXT 

This option does not affect the text 
in any way. It simply returns you to 
where you were before calling the help 
screen. It is the only option which 
doesn't ask "Are you sure?" before 
continuing, 

2. GO TO LINE 

Who'd like to guess what this does? 
After making sure you Ye sure, simply 
enter the num ber (1-60) of the line you 
wish to go to. You will he returned 
to your text, with the cursor at the 
correct position on the line you 
selected. 

3, SET TEXT NAME 

This option allows you to enter a 
filename which is used when saving or 
loading your text. When you first 
RUN the program H or if you enter a 



blank line, the current name is given 
as "No name!*' i.e. the program will 
save or look for an un-named file, not 
one with the name "No name! "To give 
a filename, type in the name and press 
RETURN The name stays the same 
unless you enter another, or select 
"DELETE SHEET" (see option 6). 

4. MOVE TEXT 

On selecting this option, you are asked 
for the start and end lines of the block 
you wish to move, and the new start 
line of the block. When you Ve entered 
these, the block will be moved, and 
you will be returned to your text at 
the line you were on before calling the 
help screen. You should be aware of 
the following things when using this 
option: 

(a) You CAN move a block to start 
within itself, i.e. if you move text from 
lines 1-20, you can define the new start 
lines as line 10, 

(b) The block to be moved must fit, 
i.e. you canY move a block of 20 lines 
to start at line 50. If you try this, the 
block will not be moved; you will get 
the message "Block will not fit." and 
will be returned to your text where you 
left it. 

(c) To move only one line, enter the 
same number for both the start and 

end lines, 

(d) Most importantly, moving a block 
will over- write any text that is in the 
new position. Also, the lines are 
deleted from their old position, 

5. COPY TEXT 

This works in exactly the same way 
as "MOVE TEXT", except that the 
lines are not deleted from their old 
position. 

6. DELETE TEXT 

On selecting this option, you will be 
asked whether you'd like to clear a 
block, or the entire *sheet\ Selecting 
"block 5 will prompt for the start and 
end lines of the block to be cleared. 
The block will then be cleared* and 
you will be returned to your text at 
the correct position. If you select 
4 sheet*, the program is re-RUN. This 
clears all text and resets the filename 
to "No name!" 



7. SAVE TEXT 

Tm sure there \ no need to explain this 
option, but I will tell you that the 
current filename is displayed along 
with the "Are you sure?" prompt. 
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Therefore, if you wish to change the 
name before saving^ just press "N" and 
go to the "SET TEXT NAME" option. 
When the text has saved, you'll be put 
back where you were, 

8. LOAD TEXT 

Again, there's no need to explain this. 
Note, however, that when text has 
loaded, the cursor will be on line I 
of the text. If you cant remember the 
name of the text you wish to load, go 
to the "SET TEXT NAME" option 
and enter a null string (press 
RETURN). The program will then 
load the first file it comes to. Also note 
that when a file is loaded in this way, 
the name is NOT set to that of the 
file, i,e, it is left blank (or "No namef") 

9. QUIT PROG 

This is self-explanatory. 

PRINTING OUT YOUR 
TEXT 



I had to write the printing program 
a$ a separate unit, as my printer 
is non-Commodore, and 1 have to use 
an interface; sadly, my interface 
software uses the same area of memory 
as ROM 80. (For those w r ho are 
interested^, my printer is an Epson MX- 
SO F/T Type 111, and my interlace is 
the '"Commodore Connexion", which 
I bought in Boots for £19,95 about two 
years ago. It may be cheap, but it suits 
my needs perfectly,) 

My printer defaults to the English 
character font on power-up, and while 
in this font, printing a hash (" ") will 
result in a pound sign being printed, 
So, if I want to print a pound-sign, 
1 send a hash to the printer, hence line 
9 of the Letter Printer 2 program. If 
1 want to print a hash, I must change 
to the American character font, send 
a hash, and change back to the English 
font, hence line 1 L 

Confused? You should be! Let me 
make it simple: if your printer can print 
a pound-sign AND a hash from the 
SAME font, delete lines 9 and 1 1 from 
the Letter Printer 2 program. By the 
way, a list of the printer control codes 
used can be found at the end of this 
article. 

Right, When youVe saved your 
text using the Letter Writer 2 program, 
switch off your computer, connect 
your printer, and switch them both on. 
Load your interface software (if 
necessary), and then LOAD and RUN 
the Letter Printer 2 program, Follow 
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TABLE 1; PRINTER CONTROL CODES 




CONTROL CODE 


LINE 


ACTION 


CHRI(27)+"R"+CHR$(0) 


11 


Set printer to American 






character set. 


CHRS(27)+"R H +CHR£(3) 


11 


Set printer to English char- 






acter set. 


CHR$(27)"@" 


15 


Initialise printer. 


CHRS(27) M 8" 


15 


Disable paper-end detector. 


CHR$(27)"3"CHRS(18) 


15 


Set line spacing to 18/216 






inch. 



the on-screen instructions, After a 
short wait (while the 4 up -arrows* are 
being exchanged for quotes), your text 
will be printed, with a nice even border 
all round, (At least, it will if you\e 
got your paper in straight!). 

That's about it t I think. I hope you 
find the program useful. It may not 
be up to the standard of 'Easy Script 1 
and other word-processors, but, as far 
as 1 know, it's only the third true 80- 
column (well, almost) '"word- 
processor" available to those without 
a disk drive! (YC Writer, from the 
Your Commodore Serious Users 
Guide, and Letter Writer 1 being the 
other two.) 



There are four functions which were 
added alter the above instructions 
were written, To use these functions, 
you DO NOT have to go to the help 
screen, just press the required key(s). 
The functions are: 

!. Holding down cither SHIFT key 
and pressing CLR/HOME will clear 
the current line of text and place the 
cursor at the beginning of the line. This 
saves time when clearing a line because 
youVe noticed a mistake. 
2. Pressing fl will centre the line of 
text that the cursor is currently on, 
thus saving time when entering head- 
ings etc. 



3. Pressing f3 will place the end of the 
current line at the Tar right. Please note 
that this is NOT a right-hand justi- 
fication, as the lines do not remain 
parallel to the left margin. As an 
example of how this can be used, type 
in your address, with each line starting 
at the left margin. Then, move the 
cursor up to the first line of the address 
and press f3. By doing this for each 
line of the address, you do not have 
to play around entering spaces to line 
up your address on the right hand side. 

4. Pressing f5 will place the current 
line so that it starts at the leftmost 
position (the opposite of 13), This was 
just included in case you press (3 on 
the wrong line, or any other similar 
mistakes. 

If you use functions 2-4 on a line with 
leading or trailing spaces, they may 
take a few seconds to work, as these 
spaces must be 'trimmed off for the 
functions to work correctly. 
Right. That is it. Have fun! And who 
knows? There may be a Letter Writer 
3 on the way! It won't be for a while 
though, 'coz IVe got a big blister from 
typing out these blasted instructions. 
I'm off for a cuppa. Till next time.., 
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OFFICIAL COMMODORE/AMIGA DEALER 

COMPUTERS 

Amiga 20O0 only , , . . , , 97*, 

Amiga 2QO0 + 10G4S Slerea Col U on 12£&.35 

Amiga 20SB PC/XT Elr;rj[|i>bOiirrJ ■ 5 25" Drivrj 

Amiga SQG + Modulator 

Amiga 500 + Games. 399.00 

Amiga S0O t Slereo Col Mon . . .629.00 

Amiga 500 + Pt\\\ip& BS33 Stereo Col Mun 609.00 

Commodore- FC1 Single Drive Mono 3-32.35 

Commodore PC1 0/20/40/90 PHONE 

Commodore- 128D DeskTop 379.00 

COHMODOftf 04C PACKS 

Moore Entertainment Pack with Yamana Kbrc (25 Slyles ?5 Voices etc | + 

Personal Stereo * 4 j 0y - Games 1B9.00 

Hollywood Peck with C2N t Joy - 10 games - . . . , 139.99 

PRINTERS 

Citizen- 1 20D Parallel or Commodo,'ft 129.05 

Star LC- 10 Parallel Or Commodore 219. W 

Star LC-1 0 Parallel or Com modore Colour . . 249.00 

Star LC-1 D 24 pin Multi-Font 170/57cps , , , .329.00 

MONITORS 

CommoOore 1QR43 Colour Monitor \nc luad , 27S.DU 

Philips BB33 Stereo Coln.jr Monitor inc. lead 259.00 

Philips 750? Greer- Strten Monitor , as.OO 

MISCELLANEOUS 

Amiga 501 512K RAM/Clock Ejcpansson 139.00 

Pace Modem - S/ware for Amiga V21/23 Preitel. BBS a1c 23S.0O 

Commodore 1541-11 Disk Drive (MEW) , .159.00 

Commodore C2H Data Recorder 29.95 

Cumana CAX354 Amige Disfc Drive » . . . .95.00 

Power Suppty lor C64 36.45 

SupBr-G Can! I/F + Graphics C64/128- . . 34.95 

Surge Protector 13A Plug 12,95 

Surge Protector 3-Way Adap1or or 4- Way Di&L Unit 15.95 

Amiga DOS Herenence Manual £22,95 

C12S Official Prog's Re-f Guide . .pip £2 16.95 

Mou&e Mai ,4.95 

SOFTWARE 

Supsfbti&ti PGrsortal , ; , , 49,9$ 

VizeWrile 128 + Spellcheck , 53.95 

VizaSlar 128 Spreadsheet & Database 79,95 

Superbase £4/126 „ 24.95/2&.9S 

Superscript 64/129 24,95/29,95 

Taaword 64 4Q/B0 Col WP - Tap&/Diik 24.95^24.95 

* ALL (PRICES ARE INCLUSIVE OF VAT AT I19H 
* CAR fl I AGE £5 ( EXPRESS £10}. Software end ■mall Jlema Iree 
* Prices subject 1o change without notice, E&OE 
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|*C*P*U*G 



the Independent 
Commodore Products Users Group 
is the largest and most friendly 
computer club in the country 

Back issues of 7988 available io non- members aS well as 
members, at £2.00 each, postage paid, 

• Many local groups with regular meetings 

• News magazine included in membership ■ 100 
plus pages of reviews, news and information 
every two months. 

• We support all Commodore Machines old and 
new; PET, VIC20, 64,16, 4, PC, 128 and all 
AMIGAS. 

• Free Software Library of public domain 
programs for all the above machines available 
to members on supply of Wank efisk or tape and 
payment of p«p. New members, do not send for 
this until membership number is received. 

• Help and Advice 

• Discount scheme 

• S u bscrl ptlon on ly £1 3 per year ( U K) plus £1 
joining fee (overseas rates on application) 

If you are seriously interested in using or programming 
any Commodore computer, then joining ICPUG is a must! 

For full details, send a stamped, addressed envelope to: 



m 



ICPUG Membership Secretary, Jack £ Cohen, 
30, Branca star Road, Newbury Park 
llford, Essex, IQ2 7EP 
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GAME REVIEW 




One of the hottest coin-op licenses of the year, and 
the sequel to Sega's Afterburner, Thunder Blade 
is now competing head to head with that high-flyer 
for the co verted Christmas number-one spot. 

The game puts you behind the wheel of the Thunder 
Blade, an advanced attack helicopter that's armour plated, 
crash resistant and armed with a 1 ,500 round 30mm cannon 
and air-to-ground missiles. Unfortunately, in the C64 
version it's hard to find any difference between these two 
projectiles, and they seem to appear randomly on the screen 
destroying anything and everything. 

Your mission is to destroy the advancing forces of an 
evil dictator who is threatening your land. This gives you 
the opportunity to blast everything in sight as you battle 
your way through the game's four levels, Each level consists 
of both top-down and 3D- view combat sequences in which 
ycu shoot it out with enemy attack helicopters, Bengal Tiger 
tanks, Barracuda torpedo cruisers, Corsair fighter aircraft, 



the tanks, the view switches to a 3D perspective, and you 
have to run the gauntlet in Skyscraper city once again. 
Tim time the enemy helicopters are more effective, and 
you get your first chance to scrap some Afterburner-style 
aircraft. 

If you survive that you win the chance to tackle the 
first super fortress, a giant warship bristling with guns and 
missile launchers that will test your skills and Thunder 
Blade's manoeuvrability as you hover back and forth 
dismantling the defences. A bar at the bottom of the screen 
displays important data such as your score, hits, the high 
score, your speed and how far youVe managed to get 
through the stage. 

Stage two takes you out of the city and into the 
mountains and deserts. The battle remains the same, but 
now stone columns replace the skyscrapers. At the end of 
this level, a massive troop carrier forms the super fortress, 
and presents even greater challenge. 




armoured cars and Burner aircraft (US Gold obviously 
hopes you'll enjoy blowing them out of the skies). The end 
of each level is guarded by an aptly named super-fortress 
with enough firepower to down a squadron of Thunder 
Blades. 

The first level is set in the concrete jungle of Skyscraper 
City, and begins with a top-down view as you take-off from 
the Pepsi Cola heli-pad. You're soon busy dodging fireballs 
blasted at you from tanks* armoured cars and even the 
building themselves. The graphics at this point are very 
disappointing - the buildings are just four stacked squares 
that mo uneasily over each other to give you the bad 
impression oi a tall tower block. While I appreciate that 
programmers need to take shortcuts to keep the speed of 
the game to arcade level this just isn't up to the high 
standards we have come to expect, 

Having said that, the game play will drive you back for 
more and more. Once youVe cleared the last car and silenced 



Stages three and four take you down the river delta 
to face the Barracuda torpedo cruisers, and onto the refinery 
to deal with a flying fortress and the command super-frotress 
the ultimate test for advanced pilots. 

Thunder Blade was a top arcade game, and is almost 
guaranteed great success as a coin-op conversion, but of 
all the available versions, the C64 one seems to be the worst. 
Although, the game play is good, the graphics are poor, 
missiles and cannons have the same effect, and you get 
only three Thunder Blades a game, whereas the other 
versions get five. It's good, but it could have been so much 
better. 



Touchline; 

Title: Thunder Blade. Supplier: US Gold, Units 2/3 Holford 
Way, Holford, Birmingham B6 7 AX. Tel: 021 356 3388. 
Price: £9.99. 
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THE ULTIMATE BACKUP CARTRIDG 

GOES ONE BETTER.^ 

Few 

EVEN MORE POWERFUL, MORE FRIX 

I TOTAL BACKUP POWER I 




JUST LOOK AT THESE FEATURES... 5 * 

TURBO RELOAD, Action Replay Mk V has 2 unique Turbo Loaders - "RamlQiider" & 
"Warp 25". Bath work at Up to 25 times normal speed. That means that you can load ' , fc— * ^ 

a typical program (200 Mocks) in around 6 .SECONDS! Just imagine 
your backups loading completely independently of the 
cartridge in seconds instead of minutes. 

PRINTER DUMP. Freeze any game and print 
out the- screen. Eg. loading 
picture, high score screen, 

etc. Works with most - — - 

printers. MPS 801, 803. ' 
Star, Epson, etc. Double 
size, IB shades, reverse 
print option. Very 
versatile - no user 
knowledge required, 

PICTURE SAVE. Save 
any Hires multi colour screen to 
disk at the push of a button. Compatible 
with Blazing Paddles. Koala. Artist 64, 
Image System, etc. 

SPRITE CONTROL. Freeze the action - view 
animations. Load, save and modify sprites in any progra 
Flip, reverse, delete etc. Customise your games. Kill sprite 
collision* - make yourself invincible. 64K operation. 

POKEFINDER GENERAL. AN AUTOMATIC INFINITE UVES 
GENERATOR? Finds those pokes which make you invinqlbJe; Vety high 
success rate , works with both old and new programs - stops you losing lives! No user 
knowledge required. Great fun! . v. .. 1 ■ ■■'''j"" 

MULTISTAGE TRANSFER, Even transfers multistage programs from tape to disk The ' ' * 

extra parts fast load a unique feature. Briltaik^ent disk!* required for multi4oaders (see below). - 

^lf ER C0 T? C ^ OR ^ UI * ■ e ? ftcien * PW** compaction techniques. Each program saved as a single file, 3 . 
programs per disk side r B programs per disk, if you use both sides. .: ■ ' -■ , 

TEXT SCREEN EDITOR. Modify the t**t screen on a frozen program. Customise your games by adding your name to the titi 
screen - change coloms, etc.. then make a backup. Also a great programmers aid. ' * ' - ' 

Keall^rtiT^TZ f*? f0rWl ? **^ nAS - BufU in fi ' e C ° Py " WMks With lon « fites - B »*" » 1341 «-k OPV 1 or 2 drives 
Read directory, send disk cdmmands. Change disk name, device number. Load direct - no need type filename 

SUPERFAST DISK.OPERAflON. Load 200 blocks In just SIX SECONDS. Works with any program of any length Works with 
mmtiLoad programs. Versatile - Backups. Basic. Monitor. Works with ail drives including 158 1 Use both sidS of dfck VtlSS 
Standard format - no file conversion required. . Superfast Save. . disit (1571J. 




GRAPHICS SUPPORT UTILITIES DISK 

A m,ngc of utilities to ouke the most of your hl£h rea pictures created with 
popular graphic? utilities or captur c d with Action Replug unique picture 

gntfebcr. 

SLIDE &HOBT. View your favourite screrm in a slide *liow type display Move 
If am screen to screen - keybemrd nr joystick nnntrol. Very *n*y to use 
BLOW UP, A unique utility to allow you to take any part of jour picture # 
TUow it up 1 to full screen sire. E?en fllla the border with powerful sprite 
handling technique*. Very easy to use simple command-. An Inte-rentim* 

utility. 

SPRITE EDITOR, A complete sprite- editor helps you cttut or ed Lt sprites 

Full colour display, Animate to view movement*, Action Replay can 
capture /insert sprite* with any program - this editor is a perfeet companion, 
MESSAGE MAKER. Takes your fuTourlte screen - created wdth a graphics 
pu^kn^e or captured with Aetlon Rep J ay & turns it Into a scrolling screen 
message complete with music. Send screens to your friends with muaic ft teit 
scrolling. Simple text editor - easy lo use. Choice of music. An exiting 
utility. Finished screens «tnnd sJono. QWLY£12:.B9 



WHAT THE REVIEWERS SAID 
I m stunned, amiLied and totally Impressed. This la e«»ily the heat value far 
money cartridge. Toe CurfridloeT Ki rto? ■ 
Commodore Disk User 

ACTION REPLAY ENHANCEMENT DISK 

The bluest »nd best collection of apecial parameters and fUe copy program* , 
for transferring non-atandBrd multMcmd tapea to disk ■ games like Last NINJA 
CALIFORNIA GAMES. LEADERBOAHJ) L DRAGON'S LAIR - NTNETY titles in jiI | 

Almost All majojf titles cohered, Latest edilion Includes SALAMANDER, 
HAWK EYE, THE GAMES aerie*, STREETFIGHTEH. VINDICATOR, ALIEN SYH- 
QRDME , PLATOON and many more. Juat about every major multlload title 
can be transferred fully to disk. Chests for Lnfloite lime, lives etc. 
The GRAPHIC SL1DESHOW ■ latest edition display* multicolour pictures or 
loading screens saved hy Aetlon Replay or any major Art FaeLagc - Blazing 
Paddles, Koala. Advanced Art Studio, Artist £4 etc. Lots of fun. 
fenlj EB-8Gr Upgrades - send £3.50 plus old disk. 



l#TION REPLAY Mk V 



FC3M64/1 28 PiUJFESSlOilAL 

* V HAS ARRIVED 

FRIDLY 8L NOW EVEN MORE FEATURES! 

ALL FEATURES AVAILABLE TO TAPE OR DISK USERS. 

ACTION REPLAY MK V differs from &\t other cartridges because it combines an BK RAM w ll.fi a FULL 32K operating system 
^ ROM. That means that ALL features are INSTANTLY AVAILABLE AT ALL TJMiES* r 

WARNING!! Other systems use outdated technology which sever I y limits performance. Action Replay s state of the art 
hardware gives you MORE POWER* MORE SPEED, MORE FACILITIES than any other cartridge, Th@rt> really is no compari- 

^ J -'/''^ 'l-; .Ron. Here are just some of the features... i£ 

^ ■■: ' - ,. p - MORE TAPE FACILITIES, Dual. speed tape turbo for backups. Very fast, very r^llabl^ 

r% 9 Programmers tkpe turbo - very compatible, Even works with sequential files, Built in- : 

slid^ show for hires pictures, You don't need a disk drive tp use Action Replay/ 

TOOLKIT COMMANDS. Auto line numb* ring. Defined 
function, keys. OId b Delete, Merge, Append, Line save. 
Plist - list directory direct to printer, Single stroke load r 
save, directory. Switch aole disk/tape turbo: _ 

FULLY INTEGRATED OPE RAT I ON. The MK V 
Professional' has an onboard custom LSI LOGIC 
PROCESSING CHIP that integrates the whole range 
of utilities and makes them available at the press of 
a button at any time, . -A . 

CENTRONICS INTERFACE. For parallel print 
era, eg Epson, Star, prints listings, with graphic 
characters, Send escape codes - make full use of 
your printer's extra facilities. Auto detect of 
parallel printer - no special commands required. 

PROFESSIONAL MACHINE CODE MONITOR* 

Full 64k monitor available at all times. Examine ail 
memory F registers, IO. stack of any frozen pro 
|^&* gram. Full range of commands, plus the luxuries 
that only a high capacity RAM /ROM system can 
^^■^^^^ . , offer: Assemble > disassemble h Hex/ As-ciL Interpret 
"N^ **" ^ in Ascii or screen codes. FlH n Hiirit-, Compare,/ 

Transfer memory* Number conversion. Register, " 
Load, Save, Verify [i.urba, tap* or disk). Two 
. way scrolling of all screen displays. Output to 
printer (CBM or Centronics) \ Directory, error 
channel, 2 drive operation. Disk Monitor - read 
block, write block, assemble /disassemble drive 
memory etc. Hex calculator - add, subtract,, 
multiply, divide < Unique set break/set freeze 
system, JSR Freeze, Full ' floating" operation - 
corrupts no memory,. Call Monitor from Basic or. 
Freezer, Call Freezer from any point in your. 
program, . ■ , 





o the title 



r 2 drives. 



orks with 



* value for 




ISK 



AST MNJA, 
I Urn in Jill . 

LIEN 5TN- 
iLLoRd title 
m etc. 
Icturca or 
- Blazing 
fan. 



UPGRADE 
INFORMATION 

ME 3V FrafeMitiilAl Lu Mk V Prtifieakldri&l - I 
jail HerwJ £53.*!$" ft wf will send ynu it new 
Mk v Cpexmtkng System Chip, need to 
*en4 jrour old cartridge - Just plug In the 
new chip! 

Mk IV IStandard) to MJt V Professional - 
send, yoikf &ld cartridge plua E15.EJ9 ft. we I 
will up^jade It lit Mk. V Fru I «s?d uri li] 
(Allow 14 duys). 



PERFORMANCE PROMISE 

Action Replay will backup any program that any other cartridge cu backup- - 
and more ! It also has- an unmatched range of onboard features . Before yon 
buy, check our competitors ads- to see what they offer and see how many of the 

Action Replay MK V feature* a±e either not there or have to he loaded from 
Hperate dlsti etc. When you buy Action Re piny, if yem dun * find our rlaim* 

to be true, then return it within 14 d*y* for a full refund, 




BY PHONE 
0782 744707 

24hr Credit 
Card Line 



BY POST 



Send L:hrqi3«*/Pns muds 

payable in 
"Datel Electronics" 



PAX 

0782 744292 

LU ORDERS POST FREE | 
EUROPE ADO Jul 
OVERSEAS ADD £3 



PRICES AND SPECIFICATIONS CORRECT AT TIME OF PRESS 
AND SUBJECT TO CHANGE WITHOUT NOTICE 



CALLERS WELCOME - PIehae reserve goad* by telephEine prior tp visit. 



DATEL 

ELECTROpiCS' 



DATEL ELECTRONICS LTD,, FENTON INDUSTRIAL ESTATE 
GO VAN ROAD, FENTON. STOKE-ON-TRENT. ENGLAND* 


SALES ONLY 
2 744707 


TECHNICAL ONLY 
0782 744324 



GAME REVIEWS 
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on a pair of boots has licensed a football game 
Microprose launches it's first sports simulation and 
makes a departure from the usual diet of combat flying, 
It's literally a game of two halves, as the flip side of the 
disk contains a different version of the game. On one side 
you can succeed where others have failed and bring home 
the world cup, or flip the disk and try the American six* 
a-side version of the game. 

Whichever game you choose you II be playing one of 
the fastest and best arcade-sty le football games, with a screen 
display showing a scrolling window over a top-down view 
of a match. You can adjust the length of each game up 
to 12 minutes, but two minutes will be long enough until 
you get used to the controls. You'd be surprised how r many 
goals you can let in in the time, particularly if you're playing 
against Brazil 

The M-a-side game contains 29 teams in all, ranging 
from Oman and New Zealand to Argentina, Italy and Brazi I, 
and the first challenge you should try is to play up the 
order of the teams, moving up every time you win, but 
down when you lose, Thisll give you time to learn the 
basic moves - you 11 have to, as not even Bobby Robson 
can stand humiliating defeats for too long. 

Soon your players will be sliding in and tackling you'll 
be able to control throw ins and corners, and you II be 
able to decide quickly whether to bring your keeper out 
to narrow down the angle, or wait on the line to dive to 
save the shot, instead of dithering somewhere in between. 
Eventually, you can even select the type of shot to try, 
including a straightforward volley, a banana shot, chip shot 
or Pele-style overhead kick. Whatever the style, youll be 
able to enjoy it again as you see an action replay of all 
goals. 

Microprose Soccer is the first football game to 
incorporate the effects of weather, if only in a limited way 



and-lightning can liven up the dullest 0-0 draws. This adds 
a new dimension to sliding tackles, as the player can carry 
on sliding and even spin out of control, leaving the opposing 
player with free space to work in. 

A world cup tournament is played in six groups, with 
the first two teams in each qualifying for a second knockout 
stage. Each group has a team from each of the 'seeded 
groups', that include teams according to their ability and 
past record. For example Brazil, West Germany and 
Holland are in the first seed group, and England are in 
the second (which seems quite generous on recent form). 
Therefore you can adjust your chances of success in 
qualifying by picking the team you will represent - if you 
choose to ptay Brazil, then you 11 have an easier group than 
if you opted f or Cameroon, but will probably come unstuck 
in the knockout stage. 

If you flip the disk, you can swap Italy and Argentina 
lor Houston and Miami as you compete in the American- 
style indoor league, which by a strange coincidence is 
organised in six groups with the first two progressing to 
the next stage, etc, etc., 

Microprose Soccer was programmed by Sensible 
Software, and it has plenty of those touches that make 
a good game great, and the professional feel of a Microprosc 
game. Some people will dislike the top-down perspective 
as its not a camera angle we're used to, but perhaps it's 
the only realistic wav of getting 22 players on a football 
field. 

Touchtine: 

Title: Mkropro.se Soccer. Supplier: Microprose, 2, Market 
Place, Tethurv, Gioucs., GLS 8DA. Tel: 0666 54326* Price: 
£14.95 eass. £19.95 disk. 
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PROGRAMMING 



A 
Flow 

of 
Ideas 



Probably the most used symbol in 
a program is the input/ output 
parallelogram (I/O symbol). This 
contains such things as print 
statements, input requests, DATA 
reads, printout commands and disk or 
tape accesses. The Data manipulations 



" lNPLJT npuie ■ 



j READ 



I '^DURESS 1 1ST' 



are contained in rectangular 
processing symbols. The contents 
include the handling of strings and 
logic operations, as well as the display 
of more conventional mathematical 
formulas: 



HEX* 



=HI*+LQ* 



ftREfl = (9flS£--2) 



nULT tP^Y COS r 
BV MUH8ER Or 
ITEtIS 



Sometimes a program can branch 
as the result of a decision, A branch 
is denoted by a decision diamond; 



Formal flowcharts are the 
best way to show how a 
program works 



known, rely on a scries of box symbols 
which represent certain specific actions 
within the program. All flowcharts 
should start and end with a terminal: 



By Norman Doyle (~ start ^ ) stop ^ } 



Any hook on programming will 
tell you that REM statements 
can be used to remind the 
programmer how a program was 
originally conceived. Having gone 
back to modify many of my older 
programs, I have found that REMs 
only work to a certain degree. The best 
answer is to create a formal 11 owe hart, 
because this can aid conversion from 
one machine to another, as well as later 
updating. 

A flowchart is a graphic display of 
the logic held within a program and, 
as the old adage says, a picture is worth 
a thousand words. Formal flowcharts, 
or flow diagrams as they are also 



To indicate the start, the terminal 
has START written inside it, and the 
end terminal has STOP in it - isn't 
logic wonderful. 

Some flowcharts spread across 
several sheets of paper, so a special 
°f/P a S € connector is used which 
contains the number of the page to 
which it connects. Similarly, the 
routine on the page to which it refers 
starts with an offpage connector 
containing the number of the page 
from which it continues. 



i2> 




Notice the arrows on the branch 
lines. These arc flow direction 
indicators, and should appear between 
every box to indicate the direction the 
program is taking, because the 
direction of flow may not always be 
obvious. 

Subroutines would be difficult to 
show on a single diagram, so a special 
form of the processing rectangle has 
been devised to cope with this, The 
predefined process symbol looks like 
this: 



GDSUB 

I1ENU PRINTOUT 
PAGE 22 
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PROGRAMMING 



V 



V 



7^ 



/[HPUT 7 




CDJLO UQLIUQrt 
CCnL^HTfR HERE 



V 




\/ vES 





\ 


/ 


DEC = cqEt 


i 

<^ OQE5 


/ 



CMRftfle-TEff TO 



/UDU 
"■DECtriflL' =DEC 



INPUT? 



V 



rz7 



/get 

/ KE^BcefiD rHPijr 




7 



YES 

^""^ — (J) 



Symbols contain all of the program 
information, but there may be 
occasions when extra information is 
necessary. This equates to the REM 
statement in Basic. The annotation 
symbol is an open-ended box which 
connects to the flowchart by a dotted 
line lo the box to which it refers: 



THIS BOX rs 
LIKE A REM IN 
BASIC 



A typical flowchart looks like the 
one in Diagram 1, Notice that the 
branch necessitates the drawing of a 
long line which connects the decision 
symbol back to the re-entry point. In 
a program with several of these links, 
the page would soon look very untidy, 
so a connector symbol has been 
devised which is only used to connect 
tw r o parts of a flowchart contained on 
a single page. 11 a branch goes over 
to a new page then the offpage 
connector is used. 

This is the range of symbols 
commonly used in flowcharting. 
Professional diagrams also use 
another set of symbols for various 
storage devices and communications 
links, but these would rarely be needed 
in a smalt home computing 
environment. 

Exploded Diagram 

Diagram 1 shows a hex to decimal 
convenor. It's obvious where the 
program starts, and the first operation 
is to zero any necessary variables and 
then print a request for a number input 
onto the screen. Although 
Commodore Basics allow INPUT 
statements to print the text and the 
input prompt on the same line, this 
may not be true in all cases, so the 
input of a number string is listed as 
a separate action. 

The input is then tested to see if 
it starts with a dollar sign, If it does, 
the program continues, otherwise it 
returns for a proper input. At this 
point the program could include a 
decimal to hex convenor in a future 
development. Although the full branch 
line back to the start is shown, in this 
case it could be replaced by the use 
of connector symbols as used on the 
rest of the diagram. 



Following through the conversion, 
the program next checks if the string 
is five characters long (dollar plus for 
significant characters) - if this is not 
the case then the program loops back 
to position 3. If true, the convertion 
process is started with a loop which 
takes each character in turn, excluding 
the dollar sign, by using a M1D$ 
command . 

Each character is tested for 
validity, and if any one fails this test 
the program loops back for a new 
input. Valid characters are passed to 
a subroutine called number convert or, 
which has an annotation symbol 
attached to explain what the 
subroutine does, 

The subroutine actually converts 
the hex character to its decimal 
equivalent and returns it as the variable 
VALUE. This variable is then added 
to variable DECIMAL, and then 
multiplied by 16 to prepare it lor the 
next hex place, 

The loop is checked to see if all 
values have been taken and, if not, the 
next value of A is taken. If the loop 
has ended, the program prints the 
message 'DECIMAL =1 and then the 
decimal value. Note the ways of 
expressing text and variable values. 
Text is enclosed in single quotes and 
variables as a plain name. 

The program closes by asking if 
another input is required, and loops 
back if this is the case. Otherwide, the ; 
program ends at the stop symbol 
Converting this to a program is simple, 
Try it for yourself and then check the I 
listings pages to see how I did it, 



PROGRAM: KEX/DEC CDNUERTDH 



30 IQ D-0 

81 20 INPUT CENTER NUHBER IN HEX 

OF 30 IF LEFTS £ N£ ,!)<> K, S " THEN1Q 

DC 4D IF LENCNSJOSTKENLO 

11 50 FDRA-BT05 

91 BO C-flSCCni DSCNffi.fi, m 

7F 70 1F047ANDC09THEN1QD 

BB 80 I FC> 5"tANDC*7l THEN 100 

34 30 GOT010 

55 LOO EDSUB1B0 

Gl 110 O-CD+UU : lFf=K5THEND-D + 15 

Ffl ieO NEXT 

IE 130 FRI "DECIMAL-" ; □ 

DB 140 FRINT"CDDUNlANOTK£fi INPU 

00 150 GFTAIj ifae- j, y "THENia 

51 160 IFMO "N"TKEIML50 

£A 170 END 

SB ISO U"C-4B: IFC<59THEN500 

**0 190 U-U-7 

46 200 RETURN 
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The Software 
Spellbook 

In which Wizard Emeritus Myron Patch, Grandmaster 

of the Honourable Order of Coders and 
AlgorithmicistS] offers essential lore for the apprentice 

Numero m an cer 



To use a C64 without a few essen- 
tial spells (the supcrstitous refer 
to these as 'software') is as 
pointless as trying to invoke the Moon 
Goddess without spilling the blood of 
a virgin ram. Therefore in this series 

1 offer, to those who have the ears that 
can take in such wisdom, a few small 
fragments of forbidden love that may 
dramatically increase your ability in 
the arcane branch of knowledge 
known as machine coding. 

I assume that everyone out there 
knows the fundamental Coder Level 
spelts such as Addition and Sub- 
traction. Without these, of course, no 
progress to the more fearsome level 

2 Multiplication and Division is 
possible It is the first of these that 
we shall be looking at. 

The easiest form of Multiplication 
spell to understand is shown in listing 
I, with a flowchart This multiplies 'wo 
single-byte numbers NU Ml and 
NUM2 to give a two -byte result - 
RESULT, Already, this shows us 
something essential about Multiplica- 
tion. You must always, when multi- 
plying a number of n I bytes by another 
n2 long, allow for a result nl*n2 long. 
This is a general principle of software 
magick, which the unwary ignore at 
their peril. 

So how does the spell work? All 
apprentice grade spell workers already 
have a founding in the popular, but 
vulgar magical language known as 
decimal, its founding being the number 
10. You may be surprised to find that 
performing multiplication spells in this 
language is actually more complicated 
than using a method based on the 
magical law of 2, which we usually call 
binary 

Here is a typical base ten multiply: 



23 
s45 



5x23- 105 
CARRY: J 



115 

4x23- 82 
CARRY; 1 



035 



CARRY: 1 



1035 



The same essential components of 
this are used in binary. You can see 
that there is a process of repeated 
addition, but that, because of the 
numeric system, each addition takes 
place on a level 10 times larger than 
the previous. This is achieved by 
shifting each succeeding sum one 
position to the left. Secondly, note the 
use of the carry. This, of course, is 
use when a multiply goes beyond the 
range of one column (i.e, greater than 

All this is obvious, but my reason 
for explaining it should become clear 
when we repeat the same process for 
two small binary numbers: 

III 

xlOl 



111x1 
111x0 
Mlxl 



111 

000 
111 



00011 
CARRY: 111 

1 1 101 1 

Now could life be simpler than 
that? For a start, each multiplication 
of the first number (the multiplicand) 
can only give rise to either the number 
itself or zero, There arc therefore no 
carries in the multiplication, since the 
range of one column is 0-1 and you 
cannot get two no matter how you try, 
The carries come in in the addition, 
but once again, a carry can only be 
a 1 or it doesn't exist at all. 

Of course, we do sums rather 
differently on paper from the way that 
the hardware will do them. While we 
could design a machine code routine 
that would do that trick exactly as we 
just did it, this would not be efficient. 
Most algorithms are loop structures, 
$o a machine code routine does not 
pile up a heap of multiply results and 
add them up at the end. It instead 
performs an addition to a cumulative 
total every time it goes once around 
the loop. 



The process is like this for nlXn2: 



L Is leftmost digit of n2 a I? This 
is done by shifting it leftwards, and 
if h is then the carry flag will be set. 
If it is not then proceed to 3. 
2. It's a 1, so we have our multiply, 
This of course just happens to consist 
of adding nl to a result field (this 
should have been cleared to zero at 
the start of course). The addition may 
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Listing 1 + Listing 2 



t o ; 



2Q 


;mul t ip 1 y 


1 byte y 1 &yte 






30 












40 


numl 


equ, 


*+b 






SO 


num2 


equ 








60 


resu, 1 t 










70 


5 










©0 


1 










90 


multiply 


Ida 


WO; 


c 1 -ear r bsu 1 1 


lo 


1O0 




st a 


resu 1 1 + 1 5 


And h i 




1 LO 




Id* 




set up cpunte 


r- 


120 


mu I t I nop 


Hi 


ni_Lm2 ; 


leftmost 1? 




130 




bcc: 


mu 1 1 sfc ip | 


nn 




140 




c lc 








150 




adc 


numl i 


Add to la 




160 




bcc 


mul tskip ; 


no carry 




170 




i nq 


r#sul t+ 1 ; 


add to hi 




171 


Wu 1 1 s k i p 


d B X J 




dec J a op ctr 




172 




beq 


mu 1 tend ; 


i+ zero exit 




ieo 






shift rtsult 


IG 


190 




ro 1 


resu 1 t + l i 


k resuJ t h i 




191 




clc 






192 




bcc 


TflU 1 t lOOp p 


gn back 




220 


fflul tend 


Eta 


resul t | 


leave result 


lo 


230 




r t ■ 





10 


t 








20 


jmultiply 


"2 bytes by out 




30 


! 








40 


nun 1 


equ 


*fo 




3Q 




equ 






60 


resul t 


equ 


W2a7 




70 


5 








SO 


5 








90 


mu 1 t2 


Ida 


#o; 


clear rp^u 1 t 


lOO 






resu L t+i ; 


fields 


HO 




sta 


resu | t # 2 




120 




Idx 


N 1 6 3 


set up counter 


13D 


mu 1 t 2 1 nap 


a«l 


hum It 


leftmost 1? 


14D 




rol 


numl + 1 




ISO 




bcc 


mu l t2fifc i p ; 


n □ 


1 so 




clc; 






170 




adc 


nuro2j 


m u Itipl ier 


13Q 




bcc 


mul 1 2sk i p f 


to the 


190 




1 nc 


resul t + 1 \ 


three 


200 




bne 


mul t2sk i p r 


bytes 


210 




S nc 


resu 1 t+2 




220 


my l t2sk ip 


d e >: ; 




tJeerentettt loop 


230 




beq 


mu 1 t 2end ? 


i+ 2;ero exit 


240 




as la; 


shi+t result 


250 




rn 1 


resul t + 1 j 


fields 


260 




rci 1 


r esul t+2 




270 




clc) 




return to 


?80 




bcc 


tnu 1 12 loop ; 


Start rj^ I nop 


290 


mul t 2#nd 


sta 


resu 1 1 J 


store result li 


300 




r t 3 





be more or less complicated, de- 
pending on how many bytes you are 
multiplying, but it's always there. 

3. The result field must now be shifted 
one to the left ready for the next 
placing. 

4, proceed to 1 

Fine, but we only want to do the 
process a certain number of times. To 
achieve this, a machine code routine 
will use one of the registers as a loop 
counter. The number of times you need 
to go around the loop depends on the 
number of bits in o2, as you may guess. 
For a single-byte number this will be 
eight, for a two-byte sixteen, and so 
forth. 

Besides the simple singk-byte 
multiply, I have also included a listing 
for a routine that will multiply a 2- 
byte number by I byte to give a 3- 
byte result. The principle is exactly the 
same, so I leave you to figure this out 
yourself, 

Quick and Dirty 

What we have just described is a 
general-purpose multiply, Even non- 
adepts know, however, that when in 
a hurry, there are often faster methods. 
When performing the awesome Ritual 
of Matrix Multiplication, many a 
newcrornancer has substituted an 
ordinary lizard for the fearsome Death 
Reptile from the Jungle of Balak- 
Nizaram and survived (of course those 
that survive are the only ones who can 
tell us about it). 



Quick and dirty multiplications are 
excellent things when a particular 
result is required. You need to be quite 
clear when they are acceptable, 
though. Bear in mind that when you 
shift a number one bit to the left, you 
multiply it by two, as any power-of- 
two multiplication, if that is exactly 
what you want, can be achieved this 
way, and h extremely fast. 

Other numbers can be broken 
down into powers of two and multi- 
plied rapidly in this way. The 
commonest example is ten, Multi- 
plying by ten is exactly the same as 
doing two multiplies, one by eight, and 
one by two, and adding the result. The 
last routine does exactly that, Look 
out for when you need to use routines 
like these. Speed is of the essence in 
real-time graphic spells, so always 
consider a quick and dirty method if 
you can, rather than a general-purpose 
routine which will always go eight, 16 
or more times around a loop, no 
matter what size of number is present. 

Calling all wizards 

In issues to come I will be illustrating 
ways to do many other common spells. 
The next page of the Spell book will 
deal with division. 

Illustrative spells, however, are not 
always the fastest. I will be interested 
in hearing from any adepts out there 
who have designed algorithms of their 
own and can explain them. There can 
simply be faster ways of doing 



common things, If you can pare 
microseconds off a standard random- 
number generator, for example, I want 
to hear from you. 

If we select your algorithm, it may 
well win you a crisp five- pound note. 
So send us an assembler source code 
listing plus a plain-language 
explanation of the magickal proceed- 
ings and a small measure of fame and 
fortune may be yours. 



Listing 3 



10 


9 






zo 


5 mu 1 1 i p 1 y 


1 byte x lo 


JO 


p 








num 1 


equ. 




so 


resu 1 t 


equ 


s+d 


60 


? 






70 


S 






90 


mu 1 t x 1 0 


1 da 


HQ 


90 




sta 


numl * 1 


100 




as 1 


nuro 1 


110 




ro 1 


num 1+1 


1-n 




Ida 


numl + i 


130 




sta 


resu 1 1 + i 


140 




1 *a 


num t 


150 




as 1 a 


1*50 




ra 1 


r*?5U 1 1 + 1 


170 




as 1 a 


leo 




ro 1 


resu I t + 1 


190 




clc 




20O 






num l 


210 




St D. 


resu 1 t 


220 




Ida 


nunn 1 + 1 


230 




adc 


resu I t + 1 


240 




■ta 


resu 1 t+1 


250 


mul tend 


rts 





YOUR COMMODORE march 1989 



GAME REVIEWS 





00100000 



<C> unnvu lid. ma. rights fcFr^RMf-o 



Pac- 

mania 





Unless you happen to be a hermit living in a cave 
in the unpopular end of Outer Mongolia, you will 
know and either love or hate Pacman. That yellow 
moulh that munches dots w hile the machine eats your money 
at an alarming rate has already starred in two computer 
games, the original coin-op conversion and the game of 
the arcade sequel, Pacland, which was a sideways scrolling 
arcade adventure featuring ghosts in planes and other 
equally unlikely events. Now, Pacman^ back in 3D! 

Pae-maniacs can now munch their way through 3D 
scrolling screens filled with dots to eat, ghosts to avoid, 
and power pills to turn the ghosts pale and into bonus 
points, as they scuttle back to their base to recharge. As 
in the original game, fruit appears for a limited time to 
tempt you into the middle lor a juicy bonus, but also into 
the range of patrolling ghosts and away from the power 
pills. 

Pac-mania is more than just a 3D version of the original 
game - although that would probably be enough for most 
Pac- maniacs as it adds a few extra features that will make 
the game a challenge for all players whatever their skills. 
From the opening screen you can select which level you 
will start at, and either start slowly with the easier screens 
or jump straight into the thick of the action. 

The game consists of four different screens that you 
visit again and again as the things speed up and generally 
get tougher, that go under the misleading names of Block 
Town, Pacman Park, Sandbo Land and Jungly Steps. 

Clyde, the chief ghost, has recruited two new spooks, 
Sue and Flunky, to pursue you, but Pac man has a new 
trick up his sleeve - pressing the fire button makes him 
jump, over ghosts if necessary, to escape from tight corners. 
Pacman also has the help of two new power pills that appear 
in place of some fruit, A red powerpili gives you double 
points, which can really help to rack up those high scores, 
and a green pill that temporarily turbo charges Pacman 
so that he hurtles around the maze. 

Pacman has always enjoyed a cult status, and has been 
played by those who don't normally play computer games 
(such as Your Commodore production people), and with 
the addition of 3D graphics, this following should grow 
and grow. 

Touchttne: 

Title: Pac-mania. Supplier: Grandsiam Entertainments, 12- 
18 Paul Street, London EC2A 4JS, Price: £9.95 
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T.K.O 



*n many atten 
the past, some good, some dreadful. However 
Accolade, a company that s had considerable success 
the past with its sports games such as Hardball and, 



True to Form* has come 



met hi n 



a bit 



choose instead to slug 
lit, the statistics of each 



T.K.O. stands for technical knockout, the term applied 
when the referee watches your face being reshaped into 
an unrecognisable pulp, and decides it's time to throw in 
your towel for you. The object of the game is to become 
champion of the world, and apart from the current champ, 
there are four main contenders selected randomly from a 
pool of J 2. Alternatively, you < 
it out with a friend. After every 
fighter are updated and saved to disk. 

You can tweak the characteristics of your boxer to your 
heart's content, altering his stance and adjusting the power 
between left and right-hand, head and body punches, 
strength or speed. Finally, your boxer has a built-in 
weakness, and it's up to you to decide whether you want 
him built to last but likely to cut up around the face, or 

Where this game differs from other boxing simulations 
is in the actual fight itself. Instead of showing the whole 
ring, you get a head-on view of your opponent. As punches 
are thrown, you can see them land or miss, and judge your 




fise, tnanks to the split screen, you 
can see what punishment your man is taking. 

There are five different guard positions that you can 

n, throat, chesl 
stomach. Your offensive punches are determined by your 
guard high guard, ample will lead to jabbing, and you 
can hook from a central position, or uppercut from a low 
guard. Where you aim is determined by moving the joystick 
to the desired position and pressing fire. Targets range from 
the solar plexus through body, jaw, mouth, nose and eye. 

At the end of each round the scoreboard is displayed, 
showing how many punches you have thrown, how many 
hit, what damage they caused and so on. The trick is not 

i row a lot of punches, but w trj . 
thai you do throve tie good punch is 

effective than a dozen light slaps. 

Although this game looks good and plavs well, there's 
not enough variety to satisfy any but the keei 



Touchlme: 

Title: T K. CI Supplier: Electron 
Ungley, BerU SI3 8XN. Pric 



fight far 
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ur knowledge of geography is limited to such places 
Irkutsk, Yakutsk, Kamchatka and the Congo, then 
s a dead cert, that at some stage or other, youVe 
i the board game Risk. Now, Leisure Genius have 
i up the rights from Parker Brothers, and produced 
iputerised version of this classic board game. 
isk does not concern itself with building pretty little 
| on May fair or trying to make the longest word 
3le from a random assortment of letters. No, the object 
s game is world domination, no less, 
re world is divided up into 42 regions spread over 
iferent continents, and the aim is to have your armies 
of them. At the beginning of each turn, you receive 
aber of armies according to how many territories you 
with bonuses if you occupy a complete continent. You 
lepioy these armies as you see fit. Only adjacent 
Dries can be attacked, the result being calculated by 
gdicc, and you can never leave anywhere unguarded, 
you capture a territory in a turn, you receive a card, 
j go to make to sets, which can be traded in at a 
turn for additional forces. From one to six players 
[ay, with any number being controlled by the computer, 
at you are never stuck for an opponent. In addition, 
computer player can play on one of three different 

>rt of challenge 




of the problems with the board game is that 
y who you played against seemed to have a slightly 
set of rules! This is because the game evolved with 
d there were several differences between the 
i and British versions. This is no longer a problem 
h a series of playing options, you can now select 
parameters you choose. The main differences 
stting up the board initially, and calculating the 

S your turn to 

addition, you choose from long and short games, 
victory conditions, and may save any half 
d game for a later date. 

rol of the game is simplicity itself. The map can 

using a compass, or in 
to the edge of the screen, 
e from pull-down menus, The graphics are 
colourful, and there is no trouble 
een who owns what and how r many 

rfy enchanted with 
aversion of 

>ly This, I am sure, is partly because 
a one player strategy game, 
games such as Monopoly don % t I would 
lis version with five or six humans, 
out round the board instead, but that 
U this is a superb version of the game 
all would-be Genghis Khans. 
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Operation Wolf 



There has been a dearth of good shoot-em-ups this 
year, but now your trigger finger can stop itching. 
Operation Wolf has arrived! Far and away the most 
successful arcade game of recent times, the only thing that 
Ocean have not managed to include in their conversion 
is the Uzi sub machine gun that sits in front of the arcade 
console. 

Basically; you Ye on a one man mission of death and 
destruction. Sure, you have to rescue some prisoners 
towards the end of the game, but think of ail the bodies 
you can pump full of lead en route. This is definitely a 
game for someone with the mentality of a Ram bo rather 
than a General Fatten _ 

The game comes in six horizontally scrolling stages. In 
each section, there is a detachment of forces that has to 
be taken out before you can progress. These consist not 
only of enemy soldiers, but also tanks, gunboats and 
helicopters, and it is for this reason that you are equipped 
with a handful of rockets, as well as clips of ammo for 
your U/L 

Considering the nature of your mission, you go into 
battle decidedly ill-prepared, with only nine clips of ammo 
and five rockets. Extra weapons do appear on the screen 
which you can pick up if you shoot them, but there is 
frequently a conflict of interests here - do you take out 
the heavy enemy forces and risk running out of ammo, 
or risk life and limb instead? 

Because of the paucity of ammunition, it's not clever 
to keep your finger permanently on the fire button. Instead, 
restrict yourself to short bursts. Longer bursts are required 
to dispose of the tanks and helicopters should you run out 
of rockets, but this is worthwhile as they do most damage 
to you. Other objects to look out for as you blast your 
way merrily round the screen are open boxes of dynamite. 




Shooting these will effectively destroy everything on screen, 
so bide your time before blowing it up. You can also gain 
unlimited fire power, but this lasts for a short time only. 

As you progress through the levels, so the difficulty of 
your task increases not only do you have more men to 
kill, but the accuracy of your aim needs to be spot-on as 
well. The large soldiers start wearing bullet-proof vests, and 
have to be shot through the head rather than the body. 

Naturally, you Ye not indestructible, and an energy level 
shows your current state of health. You can improve your 
state of health by completing a level or shooting a power 
pill but still, the sliding scale moves inexorably towards 
your impending death, The best way to postpone your 
impending doom is by making sure that you take out the 
vehicles and paratroopes as quickly as possible. Also, 
shooting innocent civilians such as the nurses is considered 
to be a definite no-no, and you are severely penalised for 
each indiscretion. 

Instead of the machine gun in the arcade version, aiming 
is achieved by manoeuvring a crosshair sight round the 
screen. Joystick response is excellent, once youVe got the 
hang of what's going on. There is also the option to use 
a Neos mouse which is easier to use. although to compensate, 
you get less ammunition to start with. 

The conversion to an eight bit machine is excellent and 
all the addictive qualities of the arcade machine are present. 
Mindless violence it might be T but it is great fun as well. 
Strongly recommended. 

Totichline: 

Title: Operation Wolf Supplier: Ocean Price: £9 $5 (ca$s}> 
£14.95 (disk). 
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Extending 
Basic 

fn this second article on Extended Basic, we develop a 
COLOR command and GOTO and GOSUB variable 
By Bitrgkard-Henry Lehmann 



The main disadvantage with 
Commodore BASIC is that it 
doesn't give the programmer 
any access to the better facilities of the 
C64, There isn't even a command that 
lets you change the screen colours! 

In the first article of this series on 
extending the BASIC of the C64, we 
introduced a simple command that 
changes the border colour. We can 
now expand on this and introduce a 
COLOR command that let's you 
change the ink, the paper and the 
border colours, all with one command, 

'COLOR* 

For the command itself I\e chosen the 
American spelling, which is *color\ 
because this means one less letter to 
type in and saves us few bytes in the 
machine code routine. Remember, the 
last two letters of the command will 
be tokenized by the computer, because 
OR is a Basic function which has the 
token hex BO (decimal 176)! Because 
of this I compare in line 600 of four 
program with SBO instead of fc fT and 

The syntax of the COLOR 
command is COLOR a,b,c - whereby 
a is the value for the ink colour, b 
is the value for the paper colour and 



c is the value for the border colour. 
As you can see, the separator between 
each parameter is a comma, even 
though I haven't included an error 
check in the routine that forces the user 
10 use a comma and only a comma. 
This might be a job you like to try 
your hand at. Here is a clue: to force 
the system to give a Syntax Eiror 
report, jump to SAF08. This will load 
the X-rcgister with JOB and then print 
the 'Syntax Error* message. 

As I promised in the last article, 
weVe going to make the use of 
variables possible, In order to make 
this possible, we use two ROM- 
routines: SADRA, which evaluates an 
expression, and SB7F7, which 
transfers a value from the floating 
point accumulator # I into the zero 
page variables S 14/ 15. SAD8A gets an 
expression from the Basic text and 
evaluates it. The value of the 
expression (or "variable") is then put 
into what is called the "floating point 
accumulator" (short: "flp accu"). 

The Floating Point 
Accumulator 

There are two floating point 
accumulators: flp accu # 1 (561 - $65) 
and flp accu # 2 {$69 - $6E). These 
are used by the C64 for all the 



mathematical calculations it does. For 
example, if an addition is to be done, 
the fist number is put into flp accu 
# 1 and the second number is put into 
Jlp accu # 2. Then the addition itsell 
is done. Finally, the result is left in 
tip accu # 1 B 

Each floating point value is stored 
in five bytes: the first byte represents 
the exponent of the number, the 
second byte holds the sign (+ or -) and 
mantissa 1, and the final three bytes 
hold mantissa $2 to 4. This makes it 
possible to hold floating point 
numbers of any size - negative as well 
as positive and do calculations with 
them with a high degree of accuracy. 
But its also quite cumbersome and 
slow. That's why it's usually better to 
develop your own mathematical 
routines rather than use the calculator 
in ROM 

Nevertheless, in our routine it is 
convenient to use the ROM-routine 
because not only does SAD8A 
interpret a simple variable, but it can 
also do a mathematical expression. 
This enables us to enter, for example, 
COLOR fNK+1, PAPER+B, 
HORDER*2/2. $B7F7 gets a value 
from flp accu # 1 and puts it, in integer 
form, w r hich all we need, in zero page 
$14/15 and the Y -register (low byte) 
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and the accumulator (high byte), 

All we have to do then is load the 
contents of the Y -register into the 
system variables which set the colour 
- that is, 646 for the ink colour, 53201 
for the paper colour and 53280 for the 
border colour. 



GOTO with variables 

The next two routines (lines 1060-1 120 
and 1170-1310) enable us to enter 
GOTO and GOSUB with a variable, 
That is, you can enter a line, like 
"SUB ROUTINES 000", and then 
"GOSUB SUBROUTINES (Bui 
remember, as with all variables in 
Commodore Basic, only the first two 
letters of the variable name are taken 
into account!) 

To modify GOTO so that a 
variable or expression is accepted, is 
really very simple: since the token for 
GOTO is hex 89, we compare in line 
460 with that value, and, if it matches, 
make the program flow jump to our 
routine (lines 1060-1120). 

First, we point to the first character 
of the parameters of the GOTO 
command by calling CHARGET (line 
1080). The next two lines (] 090- 1 100) 
do the same thing as we did with our 
COLOR command: the variable or 
expression is evalutated ($AD8 A), and 
the value which results is put from flp 
accu # 1 into zero page $14/15 
(SB7F7). 

Finally, we call the ROM routine 
at SA8A3 which executes the GOTO 
command itself, that is, makes the flow 
of the Basic program jump forward 
or backward to the line specified after 
GOTO, This routine expects the target 
line number to be in zero page SI 4/ 
15, That's why gathered the value from 
flp accu # 1 into those variables with 
the JB7F7 routine earlier on. 

GOSUB with variables 

GOSUM (lines 1170-1310) is a bit 
more complicated. First, the relevant 
information for the line to which the 
program flow has to return - when 
the RETURN command is given has 
to be stored in the machine stack, and 
then an ordinary GOTO has to be 
performed r 

Because of GOSUB, I had to 
modify the overall structure of our 
Extended Basics program slightly as 
well. You may have noticed that at 
the beginning of the main routine, 
three ROM routines are used: first, 
CHARGET is called, to get the token 
of the command itself or the first 



character of our extended command 
(line 380). Then our main routine is 
called (and not jumped to, as in the 
program in the previous article - line 
390), and finallv a jump is made to 
SA7AE (line 400), that is, the ROM 
routine which executes the next Basic 
statement. 

In other words, our main 
routine (lines 440-1 5 1 0) has been made 
wholly into a subroutine. I copied 
Lines 1 180-1290 of the GOSUB 
routine from the ROM routine at 
SA883. I couldn't give a JSR to this 

continued on page 87- 



Basic Demo 



10 BEGINNING =20 : DELAY- 1 LO 

20 IHK=INTEBHE{ 1>^16) 

30 PRINT IHK- ; INK; ; 

40 PAPER=INT(RHD{ 1)*16) 

SO PRINT f AB{ 15) PAP ER= " ; PAPER; 

60 BRD=IMT{RHD< 1)*16> 

70 PRINT TAB{28) " BORDER^'" • BRD 

30 COLOR INK, PAPER, BED 

90 GOSUB DELAY 

100 GOTO BEG I IW INC 

110 FOR N"l TO 500 

120 NEXT 

130 RETURN 



The Machine Code 



10 

20 

30 

40 

50 

SO 

70 

SO 

90 

100 

] 10 

120 

130 

140 

150 

160 

170 

100 

200 
21® 
220 
Z3Q 
240 
£tO 
200 
270 
290 
290 
300 
310 

j;io 

330 
340 

300 
3-70 
3&0 
390 
1:.m"i 
410 
420 
430 
440 
450 
1&0 
470 
-100 
490 
500 
K10 
520 
530 
£40 
f.50 

teo 

570 

5 FjO 
590 
600 
CIO 

ezn 
fillO 
G40 
6240 

6 GO 
6/0 
600 
690 
700 
710 
720 
730 
740 
7DQ 



am 49i 

EHT 

CHARCltT Ei}U tOO 73 
EXECVECT EQU SO308 



TURN E*TENDEJ> BASfC OH 

BY CHANGING VECTOR AT J03OB 

■ 

EXTBASOH L1)A KtRGSTART 
STA (EJCECVKCT 
LPA IT>[ 1 I!GETABT 
STA >EXECVECT 

UTS 



TURN EXTEKDED BASIC OFF 

B'l CHANGING VECTOR AT $0303 

BACK TO NORMAL { JA7E4 ) 

EXTBASOFF LDA U<JA7E4 

ETA <EXSCV5CT 

LBA P>|:A7E4 

STA >EXECVECT 

RT3 



J*** MAIN PftLXiRAM EUTRY *■** 

; EXECUTE A STATEMENT f LIKE *A7E4) 

FRGSTART JSR CHARGET 
JSR PRGSTIiTl 
JMP tA7AE 

LOOK Foii EXTENDED BASIC COMMAU0S 



I'HOSTRTl 



CMl 1 "0 
OEQ OFF. RT 
CUE 1 fit-PS 
BF.Q GOTO , RT 

&EQ GOSUB . RT 

cue c 

DUE HQSMAL 

J^R CHARGET 

CMP '0 

BHE NOEiKAL. 

JSR CElARijET 

CMP '3, 

13WE NORMAL 

JSR CltAtfttET 

CMP l*PO ; 

REO CUt.Uk. liT 



. J GOTO' 
'■SQEUB' 



'OH. r TOREK 



DO NORMAL ROM- ROUT HIE 

normal jmp *a7ed 

execute ' color 1 commas 
get imk parameter 

COLOR. RT JSR CHARGE? 

JSR IADBA 
JSR SB7F7 



760 

770 

730 

790 

BOO 

StO 

020 

&30 

840 

350 

&r>0 

F70 

8ti0 

090 

£00 

910 

920 

S30 

940 

950 

960 

370 

n:?:_: 

G&O 

I 000 

1010 

J 020 

1030 

1040 

1050 

10&0 

1070 

1OB0 

1090 

1100 

HID 

1 120 

1 130 

1140 

n&o 
noo 

1170 
1 inn 
1190 
3 ZOO 
1210 
1^20 
3 2 30 
LS40 
12*0 

1270 

izgo 

1290 
J 300 
1310 
1320 
I 330 
1 340 
1350 
1360 
1370 
1380 
J 390 
1400 
L4lO 

1430 
1440 
1450 
HflO 
1470 
14G0 
1 490 
1500 
1510 



; CHANGE IKK COLOUR 

STY 646 

■nET PAPER PARAHETEK 

JSR CIIARGET 
JSR $ADBA 
JS& SB7F7 

j CKAilGE PACER COLOUR 

STY 53281 

■GET BORDER PARAMETEEi 

JSR CHARGET 
JSR SAfoliA 
J&U t&7F7 

; CHANGE BCJkttFlR COLOUR 

STY S3 £60 
iJUMF TO REST OF ROM ROUTINE 

RT5 

i 

; EXECUTE 'GOTO' COMMAND 

GOTO, RT JSR CHARGET 
G0TO.RT1 .JSR SADBA 

JSR *u7F7 

JSR JABA3 

RTS 

EXECUTE 'GQSIJFT COMMAND 



J"sR CFlARGET 
LBA 1**03 
JSR &A3EB 
LDA S7B 
PE3A 

LOA $7 A 
LPA I3A 

riiA 

[J>A t30 

riiA 

LNA RSHD 
P1IA 

JSR QO TO . RT I 
JMJ' $A7AE 



TEGT FOR REST OF J OKK r 

OFF. RT JS'-R CltAt^ET 

CMP ■" F 

BHE NORMAL 

JSP. CHARGET 

CMP *f 

BIIK h FORMAL 

i EX ECU TK ' £] PF ' COMM Al 11> 

JSR EXTBALiOFF 

J GET NEKT CHARACTER A\U> 

j JUMP TO REST OF ROM - ROUT IKE 

JSR CHARGET 
RTS 



ar 



01 



AS? 
Th[; 
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PRINT ENHANCER Plus/4 disk £19.99 

Pius/fl desktop publishing: Proportionally spaced, high quality printouts, 
from BASIC, 3+1 and script/plus. Supplied with 15 fonts and font designer 
program. MPS 801/803, VIC 1525. 

RS232 INTERFACE 64, 128 or Plus/4* . . £34.99 

Measuring only 12*69*5? mm, the smallest and neatest unit available. 
Conforms to Commodore 1011 A user-port standard. Compatible with 
BASIC, Easyscripi, Superscript, Suparbase, Mini Office, Script Flua etc 
Conned to RS232 printers, modems and other devices, Supplied with 
1 melre of cable (add 75p a*ira metre') terminated with a male (female 1 ) 
25-way D-connector. or a custom cable made to your requirements, Our 
after sales service for unusuaJ printers guaranlees to get you up and 
running. Supplied with a terminal emulator program, hie transfer and 
Diner unities on tapa/dl&ir 

IBM PC File Transfer Utility £9.99 

Captures text or binary files via the COMI RS232 port. Supplied on a 
360k IBM format 5 1 // disk. Simple instructions provided by on-line help 

VIEWDATA TERMINAL 64 or Plus/4 . ■ . ,£14,99 

Accqss Prestel, Micronet, CityService etc. Works with any user-port RS232 
interface and 1200/75 modem. 

CENTRONICS CABLE 64 } 128 .£18.99 

Use with Easy script. Superscript etc. Driver for BASIC on disk or tape.' 

6502 ASSEMBLER 64 or Plus/4* tape/disk £12.99 

A sophisticated two-pass symbolic ass&mbler arid text editor which 
support tape and disk filing. The assembler, editor, source and object 
code may ail be resident in memory s mutar.eously. facilitating rapid and 
interactive code development, Very fast edit/Assambler/test cycles. 

Z80 EMULATOR/ASSEMBLER 64 disk £12.99 

A unique integrated Z80 development package. The emulator compi res 
ZS0 source code into optimised 6502 which runs on the 64 at about one 
Sixth Ihe speed of a 2MM2 Z&D- The- cross-assembler generates hex or 
binary ZSQ object hies. The disk contains a powerful editor and example 
pmgrams. 

Pfea$$ $pecify l options, Send chaque/PO. or order fry access, 
Price* Include VAT and PAP. Overseas orders add £2.50. 
Aitow up to f week tor delivery. 

YORK ELECTRONIC RESEARCH 

The Frshergate Centre, Depl YC, 4 Fishergate, York ¥01 4AB 
Tel (0&D4) 610722 



El 




Most advertisements are legal, decent, 
honest and truthful. A few are not, 
and, like you, we want them stopped 

If you would like to know more about 
how to make complaints, please send for 
our booklet: The Do's and Don ts of 
Complaining* It's free 

The Advertising Standards Authority. 

We're here to put it right) 

A5A. Ltd., Depi.z. Brook House. Torringwn Place. London WCiF. 711 N 
This space is donated in the imeresis of high standards or advert i.smi;. 



To find out all you need to 



Know 



about the Amiga computer 




pays to subscribe to *Your Amiga* 



all 



you need iv do is m fill in the coupon 



ILK. £9.00, Europe £1 1.80, Middle East £1 1,90, 
Far Kast £13.00, Rest of the World £12,10 
Airmail rates on request. 

Please com m me nee my subscription to YOUR AMIGA 

with the , issue. I enclose my 

cheque/money order for £.. made payable to 

ARGUS SPECIALIST PUBLICATIONS LTD, 
or debit £ from my Access/ Barclay card 

m i i i i i i i i r^m 



No. 



Valid from to 



Signature 

Name 

Address „ 



Postcode 



L 



Send this form with your remittance to: 
INFONET LTD. 5 River 1'ark Estate, 
Billet Lane, Berkhamsted, Herts HP4 1HL 
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C64 PROGRAMMING 

Basic 
Workshop 



Basic Workshop is a program 
which lets you press two keys 
(CTRL + ?) to print a keyword 
such as 'LIST*, It allows the Commo- 
dore keyboard to be used in much the 
same way as the Spectrum keyboard. 
It is stored at SCOO0-C8OO, so as not 
to get in the way of Basic programs. 

It works by using interrupts and 
the keyboard matrix: when the inter- 
rupts are serviced, the program checks 
to see if a key is pressed. If so, it stores 
the string in the keyboard buffer. The 
strings are held in a table, and most 
m/c language programmers should be 
able to change them with ease. The 
program can also change screen 
colours with the function keys, and has 
an inbuilt 'OLD' and Reset. This 
allows you to examine programs such 
as 'Patience* by Commodore by load- 
ing the program, resetting andOLD- 
ing the program. 

It was written on the Monitor/ 
Assembler on Action Replay IV. A full 
list of commands, etc, follows: 

LOADING 

Type: LOAD'BASIC WORKSHOP",^ 
Then: NEW 
Then: SYS49152 

If this is not done when entering lines, 
all you will get are 'OUT OF 
MEMORY* errors. It should now 
print a message showing that all is well. 

CONTROLS 

All the controls can be seen by pressing 
CTRL + | to show a helpsheet. 

Fl = Cursor colour. 

F3 - Screen text colour, 

F5 = Screen background colour. 

F7 = Border colour. 

Shiftlock = Listing, directory, etc. 
Pause, 



Avoid typing all your keywords out in full with this 
ingenious new program 

by B. Graham 




CTRL + A = ASC 
CTRL + C = CLOSE 

CTRL + E = PEEK 
CTRL + H - CHRS( 
CTRL + L- LIST 
CTRL + P = POKE 
CTRL + R = RETURN 
CTRL + T = DATA 



CTRL + + = OLD 
CTRL + | = HELP 



CTRL + B = GOSUB 
CTRL + D = 
DIRECTORY 
CTRL + G = GOTO 
CTRL + I = INPUT 
CTRL + O = OPEN 
CTRL + Q = LOAD 
CTRL + S = SAVE 
CTRL + V " VERIFY 



CTRL + - - NEW 

CTLR + (CBM) + = RESET 



When OLDing you MUST press 
CTRL and +, and not type OLD. This 
is because it h the keypress which 



OLDs not the actual word. Thus yo 
get a Syntax error if you type it in. 
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eing one of the favourite 
pastimes in the UK, it 
arts game just has to be part 

of any computer games 
lover's collection, There 
have been many versions 
made for the C64 ? this latest 
effort from Zeppelin games 
being endorsed by Jocky 
Wilson. 

Numerous different 
games are on offer. Tour- 
nament" allows any number 
of players to compete in a 
real darts game. "Two player 
head-to-head' allows just 
two players to team up 
against each other, and 
'round the clock' is the old 
favourite where you have to 
hit the numbers in sequence. 
If playing round the clock, 
you can specify if you need 
to hit just the number, 
trebles or doubles in order 
to pass onto the next number 
in the sequence. 

Once you've selected 
your playing options and are 
ready to throw, the screen 
changes to a display of a 
hand holding a dart in front 
of a dart board. The hand 
on display moves around in 
a semi-random pattern as 
though the dart holder is 
suffering from a bad case of 
the morning-afters. 

You control the rough 
direction that the hand 
moves in by the joystick, 
dimply press fire when the 
dart is over the position on 
the board that you'd like to 
hit, and sit back and watch 
your dart fly towards the 
board. That's all there is to 
it - you've no control of the 
strength of the throw or the 
angle at which the dart flics 
both of which I would 
assume to be an essential 
part of any darts simulation. 

If you Ye playing against 



the computer, the display 
will change to a 3D 
representation of the board. 
This is a purely cosmetic 
feature, and you simply sit 
back and watch the 
computer throw its three 
darts. 

As darts simulations go, 
it's far from being the best 



that I have seen. All is not 
lost, though - the game is 
fun to play, even if it's not 
a true simulation. A budget 
price and the option to play 
against other people also 
help to lift this game from 
the "doirt bother" league 
into the "it could be worth 
adding to your collection" 



one. 



Touchtine: 
Name: Jock Wilson r s Darts 
Ch a U e nge . Supplier: 

Zeppelin Games. 28 
Oshourne Road Jesmoncl 
Newcastle upon Time, NE2 
2 A J. Tel: (091) 281 4401. 
Price £2S9. 



i n in 
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GAMES UPDATE 



chance to 
show off on a 
motorbike, and at a budget 
price, courtesy of Code 
Masters. Jet Bike Simulator 
allows you to compete in jet 
bike races on one of 24 
courses. Up 10 two human 
players can compete against 
the co mpuier-cont rolled 
bikes, but with keyboard 
only - no joystick option is 
siven. 

Though the action in this 
game is fast and furious, it 
is spoilt a little by the screen 
display. In these days of 
scrolling screens, split 
screens and 3D views, Code 



Masters seem to have taken 
a backward step with this 
game, as each circuit fits 
onto the monitor screen. 
This doesn't really spoil the 
play - if anything it makes 
it easier, as you can sec 
what's coming up - but it 
does mean that all the jet 
bikes appear on the screen 
as slightly oval dots, making 
differentiation between 
them difficult. 

I must admit to never 
having had a go on a jet bike. 
However, if the control of a 
real jet bike is as difficult as 
it is with these computerised 
ones, T don't really fancy 



giving it a go. Some may 
think that travelling along at 
full speed and turning right 
to go through the next gate 
will be easy - if so, you'll be 
in for a shock. When turning 
a corner, you can't forget 
about the forward momen- 
tum of your bike. If you do, 
you're liable to find yourself 
embedded in the nearest 
bank. 

Once you've mastered 
the normal version of Jet 
Bike Simulator, which if mv 
performance is anything to 
go by will take quite some 
time, Code Masters have 
provided you with an 



advanced version. This uses 
the same courses, but offers 
extra challenges. 

Somehow, Jet Bike 
Simulator doesn't quite 
make it to the status of being 
one of those "just one more 
go * types of games. It's good 
fun, the two player version 
especially so. Perhaps it's the 
poor display that causes the 
game to lack that final 
polish. 
Touchline: 

Title: Jet Bike Simulator, 
Supplier: Code Masters, PO 
Box 6\ Leamington Spa, 
CV33 OSH, Tel: 0926- 
814121. 




here are some games 
that the computer is just 
right for, while others are 
utterly destroyed by being 
transferred onto the 
electronic wizard. Hustler, 
subtitled World Champion- 
ship 6 Ball Pool, seems to 
be one of those conversions 
that doesn't live up to its 
real-life counterpart. 

Any pool or snooker 
player will tell you that the 
skill in playing the game 
depends upon the ability of 
the player to position the 
balls just where he wants 
them. This is done not only 
by hitting the cue ball at 
varying strengths, but also 



depends upon exactly where 
you hit the cue ball with the 
cue r 

Hustler, from Top Ten, 
allows you to select where 
you would like to send the 
cue ball and at what 
strength, but that's alL In 
faet ? selection of the strength 
of the shot isn't so much a 
choice as a test of your 
reactions. To select the 
strength of the shot, you Ye 
required to watch a power 
bar at the bottom of the 
screen and press the fire 
button when it's at the 
position you require. 

Hustler gives the player 
a choice of six different pool 



games: one player - any ball 
in any pocket; one player - 
pocket the balls in order; one 
player - put each ball in its 
correct pocket; two players 
put each ball in its pocket 
and score the pocket; two 
players mini pool, one 
player to go for the orange 
balls, the other black; two 
players one pots in order 
1-6, the other pots in order 
6-1. 

This simulation offers a 
good selection of different 
games, and the two player 
games arc fun when 
competing against a friend. 
Unfortunately, the game 
lacks the realism that would 



make it a top-notch pool 
game. As it stands, I'd rather 
put my money into the real 
tables where there's a much 
greater skill element 
involved, though the £1.99 
price tag may just make it 
attractive enough to add to 
your collection for those 
damp, cold nights when you 
can't be bothered to go o Lit. 



Touchline: 

Name: Hustler. Supplier: 
Top Ten, MIL, 12 Chiltern 
Enterprise Centre, Station 
Road, Theale> Berks, RG7 
4 A A. Tel: 0734-302600. 
Price: £1.99, 




I your idea of fun is 
driving a car through a 
bolder-strewn desert at high 
speeds, racing a powerboat 
through tight twists and 
turns, getting back into your 
car in order to drive as fast 
as possible through a forest, 
turbo boosting over the 
grand canyon, fighting it out 
with violent street gangs, 
and so oil then Code 
Masters have just the job for 
you as a sUintman in their 
latest game. 

Your job description as 
a stunt man in Code 
Masters' latest epic will be 
to navigate your way 
through all of the challenges 
mentioned above within a 
certain time limit. You have 
just fuur takes at each scene, 
and you must complete each 
one in turn. Of course if you 
fail in your task, then you'll 
have to start all over again, 
as the film is no good. 



Stiper Stunt Man is one 

of those fast action games 

that makes you feel sure that 
just one more go will give 
you a better score. Or 
perhaps you feel sure that 
youVe mastered the speed 
boat racing, and one more 
go will see you through it 
and onto the next stage of 
the game, 

If you're the sort of 
person who can't stand 
finding out that the time is 
3 am and you're still playing 
that stupid game, but youll 
have just one more go, then 
don't buy this program. On 
the other hand, it's a must 
for all addicis of fast action 
arcade games. 

Toucktine: 

Title: Super Stuns Man. 
Supplier: Code Masters, PO 
Box 6, Leamington Spa, 
England, CV33 OSH, Tel: 
0926-81412L 



irne to save a defenceless 
Earth from a horde of 
marauding sprites again, 
and at a budget price, Terra 
Fighter is a sideways 
scrolling shoot-em-up 
containing six levels. 
However each level has 18 
distinct stages, so the game 
will take some getting 
through. The idea is to 
clobber the baddies* power 



supply, while dodging the 
hazards. We particularly 
liked the one that reverses 
your joystick controls. 

Touchiine: 

Title: Terra Fighter. 
Supplier: Zeppelin Games, 
28 Osborne Road, Jesmond, 
Newcastle upon Tvne t NF2 
2 A J. Tel: (091) 281 4401. 
Price: £1.99 (eass). 




Time to get the old 
broadsword honed and 
ready. Came lot Warriors is 
a graphic adventure of some 
complexity, but there's still 
room for the hack and 
slayers. If you can make it 
through, its a matter of 
getting the four Magic 
Things to the Four Magic 



Kings. Not easy, and 
reasonable for a budget 
game, 

Touchiine: 

Title: Came lot Warriors 
Supplier: Mastertromc, 2-4 
Vernon Yard, Portobelio 
Road, London WU 2DX. 
Price: £1.99 (eass J. 



ow to be a Complete Bastard 



fteralljts a useful skilk 
Most companies have 
many openings for CBs, lar- 
gely in management. Ha, ha 
- only kidding. 

This is^ of course, the 
budget version of last year's 
Adrian Ed mo nd son gross- 
out. This game is almost the 
re tun, of Bad Taste 
software. All you have to do 
to clear most of the yuppies 
out of a rather dull party by 

; f,n{ ; \ 1 1 v il I 



setting fire to things, 
frightening people, and a 
range of far less mentionable 
activitcs, are all possible. 
Format is fairly standard 
graphic adventure, but this 
game has enough novelty to 
lift it above the crowd. 

Touchiine: 

Title: How to be a Complete 
Bastard. Supplier: Alaster- 
tronk, 2-4 Vernon Yard, 
Portobelio Road, London 
Wtl 2 OX, Price: £1.99 
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Pilot 



a 



Programmer's 
Language 



If you're interested in educational programming but 
have yet to find a suitable language, Pilot could be the 

answer 
By Evelyn Mills 



P 



■lot is a language designed for 
those who are interested in 
educational programming. This 
particular version (Commodore 64 
Basic V.2) is extremely versatile, easy 
to use and has approximately 38,900 
bytes available for programming, 

The concept of Pilot is frequently a 
simple 'question and answer 1 
program, which in reality is not the 
case Quite apart from all the 
important dialogue elements there 
also exists 

• a simplified graphics screen with full 
colour control; 

» excellent sprite designing and 
handling procedures; 
■ the ability to change all keyboard 
characters to any design you wish; 

• sound programming availability 

First of all. The simplicity' of 
'dialogue 1 programming should be 
studied There are three modes of 
operation - EDIT, COMMAND and 
IMMEDIATE. (The latter js 
essentially for 'practising while 
learning*,) 
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To get going with 'real lime fun!!) 
programming, begin in COMMAND comir 
mode (press STOP key) and use this M 
conjunction with the EDIT mode; (M 
the PILOT modules are interactive]! 
Consider a simply example such as; Grap 

Turni 

TS: What is your name please? st ^ [ [ t 
A: requis 
Hello, S%B. press RKTURN i^axes i 
continue. origin 
A: cornel 



In EDIT mode (press E key), tea 
may be entered directly in the form of J 
wordprocessor; printer output will bJ 
limited, however, to the normal 4 
column screen width, Mori 
importantly, in EDIT mode, is till 
facility to delete text, enter text an! 
generally make amendments al 
required, 



Real Time Programming 
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TS starts the typing instruction 
sequence which is subsequently 
followed by a T; the words typed in 
will appear on sawn. A accepts the 
words or instruction typed by the user. 
New lines are simply proceeded by a 
colon which is a legal continuation 
instruction. 

Naturally there must be flexibility 
of control while programming 
; otherwise the dialogue will be nothing 
[tun c than monotonous. PI I .OT 
provides ample scope for this and has 
restructured the more advanced 
features of Basic into a simple format. 
A sample of such features is as follows; 
each instruction must be followed by a 
colon (:) not listed here. 

PR - problem solving 
D - dimension 
W - wait 
M - match 

J - jump instruction telling the 
computer to jump a label inserted 
within the program 
C - string computation 



E key), text 
he form of a 
itput will be 
normal 40 
th, More 
icde, is the 
ter text and 
din cuts as 



real time* 
OMMAND 
d use this in 
Fmode; (all 
interactive).- 
c sikh as; 



please? 
JETURN to 



To avoid answers which cannot be 
anticipated, hints may be inserted to 
combine with the match* type and 
jump commands. U (use) calls 
subroutines which are concluded with 
a n li. 



When Numerical Answers are 
Required 

Questions which require numerical 
answers are streamlined to a high 
degree, e.g. X-RM)(%) ruiums a 
number between 0 and 89. All the 
calculations handled by the C64 are 
permissible and arc computed using an 
AND operator which automatically 
checks fur the correct answer. 

The manual is full of examples 
which will take you through every 
aspect of Pilot programming speedily 
and efficiently- You have here a a very 
powerful tool for education (and 
fun!!) working with simple structured 
commands, 



Graphics 

Turning to the GRAPHICS side we 
start by entering G:E followed by the 
requ isi te field Lrisc ruct ions . The x a nd y 
axes are 319 by 192 respectively, the 
origin (0,0) being in the lower left hand 
corner. Initially the starting point 



should be defined (P) followed by the 
*draw to h locations (D). To draw a 
triangle, the command could he 
formatted as: 

G;E;P5,5:D90,5;D90 h 7Q;D5,5 

The graphics beam may be moved 
to another point location using an M, 
while lines may be erased with an R 
command; both of these commands 
need, of course, the requisite x,y, 
locations. 

In combination with this, the test 
cursor may be positioned exactly 
where required, the screen may be split 
using an S command and linked to 
Frame or Window Designing for 
maximum display effect. The full 
colour range of the C64 is available 
with single letter instructions for 
border (X), background (B) and 
foreground (F) colours. The FILL 
command (F) is used to fill a block 
with a foreground colour by specifying 
the diagonal co-ordinates in the normal 
manner (e.g. G^PSO^OiFttOjC 14) 

Pilot again comes into its own by 
alio vying you to design sprites on 
screen and to move them around with 
simple instructions. The B IT- 
PA TTHRN (B) is used to define your 
sprite on a 21 x 24 grid, using a dot to 
create the grid and an x to indicate the 
pattern. The sprite should be given a 
number (0-7). To start the program 
type B:2 and go ahead with your 
pattern (2=sprite number !!). Having 
done so, the sprite must now be turned 
on with an S command and an op code 
(FT). An example is as follows: 

S:2:E1;C0;L 10(UO0 
W:I00 

The sprite will now be apparent, 
coloured black, at location 1 00,100 on 
your screen. 

Sprites may be expanded 
horizontally or vertically, restored to 
normal size, or used in multi-colour 
mode (M 1) with three possible colours 
in any one sprite. Again full 
instructions are given in the manual 
combined with the simple commands 
for moving sprites around the screen. 



Character Definition 

There are many applications in which 
specialised notation would be useful, 
particularly in foreign languages, 
maths, science, etc. Using Pilot a new 



character may be defined by using the 
NEWCHAR (N) instruction; the N is 
followed by a number corresponding 
to the standard ASCII code of the 
keyboard (32-127). The code for Sis 36 
for example, so N:36 will allow 
redefinition of this key. Redefinition is 
done on an 8 x 8 matrix in much the 
same manner as sprites. 



Sound 

This enhancement is very useful for 
creating extra effects in dialogue or 
animation, etc; but can only be 
regarded as a supplement and will not 
give you any degree of musical 
flexibility. Sirens, bells, locomotives 
and so forth may be programmed with 
ease to good effect and, again, the 
met hod is simple enough. Noise, pulse, 
triangle and sawtooth waveforms are 
available^ as are ring modulation and 
synchronisation. Volume and duration 
of notes, attack. deca\ . sustain, release 
are all there and a sound editor is 
available on the disk to allow you to 
experiment with the above variables. 
Music note values are listed in the 
appendix. 

There are more advanced features 
in Pilot which show you how to set up 
mult iple choice q uest ions with selected 
answers (look under EXECUTE}, 
while the ESCAPE mode allows 
special features to be built up within a 
program and called by the user at any 
time. A good example is given of how- 
to create a calculator which may be 
called at any point within a program, 

In the event that you wish to create 
a long program and run out of 
memory, there is a LINK instruction 
{IMPART 2) which will load the second 
part, (and subsequent parts if 
specified), automatically. Naturally 
the previous program is then 
unavailable so the sub-sections should 
be independent as such. 

The normal features of saving, 
loading, printer output are all 
available; a k ^Run Only" version of 
Pilot is on the disk which means that 
your program ma> not be listed, edited 
or printed. The disk has an excellent 
demo, which when listed, will show 
you how to handle sprites, graphics, 
split screens and programmable 
characters. 

For the programmer, Pilot is an 
easy to use, interactive system which 
can be well recommended: nor will this 
cost you a fortune; contact Dimension 
Computers Ltd. 
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With wargames becoming ever more sophisticated, 
it*s good to see that one company - CDS - has 
not forgotten the beginner. What is doubly 
unusual is that their latest title, Tank Attack, k also a curious 
hybrid: a computer moderated wargame. 

The scenario is simple. Four neighbouring countries, 
Armania, Kazaldis, Sarapan and Calderon, declare war on 
each other - well, on two of the others actually, for there 
are two firm alliances. Resources are limited to armoured 
vehicles, and the object is to blow holes in your enemy's 
command post before he does likewise to you. The game 
can be played by two to four players. There is no solo 
option. 

The battle itself is fought out on a board by moving 
little plastic tanks round a hex grid. Each country has two 
light and medium armoured cars, as well as two 
tight, medium and heavy tanks. The pieces are cunningly 
designed so that you can't tell the strength of an opposing 
piece when it's on the board - you can only find out by 
attacking it. The pieces can be placed anywhere you want 
within the boundaries of your country. It's up to you to 
come up with the right balance of attack and defence. 

How far you move each turn is determined by the 
computer taking into account the weather for the day, and 
assorted other random factors. The number of hexes that 
you can move can be split between as many vehicles as 
you see fit There are a few terrain restrictions and a bonus 
for armoured cars in open country. 

If you want to attack, you must inform the computer 
how far away from your target you are, and then disclose 
what power vehicle you have. Your enemy does likewise, 
and the computer then works out the result of the battle. 
At this stage, you get to see the battle through a stylised 
pair of binoculars on the screen, (Incidentally, T wonder 



if the game designers have ever actually looked through 
binoculars. The sideways figure of eight view is not what 
you get. Hollywood directors please take note too.) The 
result of the battle is then displayed, effects ranging from 
total destruction to a vehicle being removed to a repair 
centre. 

That's really all there is to the game. The board looks 
attractive, and the on-screen commands are clear and simple 
to use, but (and it's a huge but) why bother in the first 
place? The game would have worked just as well without 
the computer being there. All you need to do is determine 
the move factor randomly, and look up the results of combat 
on a table. 

If, however, the game had been entirely controlled by 
computer, it could have been truly excellent, AH the 
problems associated with board wargames could have been 
eliminated at a stroke, and a host of other features included 
- a save game facility should something interrupt the battle; 
a solo option; hidden movement; deliberate smoke screen 
effects; and, dare I say it, the elimination of cheating, or 
at least the urge to cheat. The idea of getting the computer 
to tell you how far you can move, and then making the 
player go and look up in the rule book exactly where he 
can move, does seem to be something of a retrograde step. 

Tank Attack is extremely well produced, but 1 feel that 
it is the wrong game for this combination of board and 
computer action. 

TouchUm: 

Title; Tank Attack Supplier: CDS, CDS House, Beckett 
lid, Dancasier Dti2 4 A D. Price: £12.99 (east), £14.99 (disk) 
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"THE MAIN EVENT" 

DEPT (YC) 61 STAFFORD STREET, HANLEY, STOKE-ON-TRENT, 

STAFFORDSHIRE ST1 1LW 
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Please cross PO/ Cheques and make payable to: THE MAIN EVENT, 
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We apologise for any alteration or omissions since going to press. The Main Event is a division of Software City. 
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Tech 
Troubles 



Don't get stuck in a rut. 
Let our agony unc/e 
help you out 



By Tim Arnot 



Dear Tim, 

lam trying to get my Commodore 64 to 
sample sounds from the cassette drive 
but have encountered a stone wail in 
actually gen tag it to read the signal 
coming in, i would f ike to know how to 
do this, and would be very grateful if you 
w ould send me some information on this 
subject or put an article in your 
magazine. I enclose a stamped 
addressed envelope and I look forward 
to your reply. 
N D. Moose? Chislehurst. 



Hi Neil, 

Thanks for including an S,A,E. As a 
general point, after your letters reach 
the Your Commodore offices, it can be 
up to a month before they reach me for 
reply, it will then be another month 
before they appear in print. So if you 
want a reply * quickly ^ 1 will always 
send a copy of my reply in an S,A r K, 
Unfortunately (for you anyway) 
the Commodore cassette system ts 
entirely digital and relies purely on ihc 
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Commodvre cassette schematic 
time spacings of pulse transitions tor 
receiving its information. While this 
makes it extremely reliable for its job 
of loading and saving programs* for 
your application of digitising sounds, 
it is utterly useless. 

The Commodore cassette 
mechanism basically records 
information as a scries of digital pulses 
of different length. A mixture of these 
lengths is then used to determine 
whether a bit is a 0 or t. Tims a I is 
represented by a short pulse followed 
by a medium pulse, a 0 is medium 
followed by a short, and the start of a 
new byte is long followed by medium, I 
have included a brief schematic of the 
cassette read/write logic, so you can 
see what happens. Notice that the 
READ signal is fed directlv into the 
FLAG input of CIA #1 (SDCOO- 
SDCFF), which is basically just an 
edge sensitive interrupt input. 

In order to sample sounds, you will 
need to employ a device called an 
Analogue to Digital Converter 
(ADC). This basically takes a 
snapshot of the sound at one instant in 



time and converts it into a number for 
use by the computer. The quality of the 
sampled sound is dependent on the 
speed at which you take these 
snapshots. For example, compact 
disk, which is essentially sampled 
sound, has a sample rate of 28,000 
samples per second. 

To show you how to construct a 
sampler based on an ADC is really 
beyond the scope of this reply, 
however you can purchase them ready 
made from a number of vendors, most 
of whom advertise regularly in this 
magazine. Cost would be in the area of 
£50, but that will also include software 
to drive it. 




Dear Tim, 

I own a Commodore Plus/4 system, ami 
ha ve a question which I hope you may be 
ah/e to answer: how do I go about 
programming the user port? - either 
from BASIC or assembly language? 

/ am fairly conversant with the 
method used for the Commodore 64 r so 
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if it is a similar method, all I need is the 
memory I oca lions and any other 

differences* 

Sieve Jottes, Giilingham 




Hi Steve, 

Unfortunately, I have bad news for 
you - the Plus/4 doesn't have a user 
port f - Lit least not in the sense that the 
PET, 64 and 128 have user ports. 

To explain, the 64 etc, machines 
have an edge connector at the rear 
labelled Parallel user port, which 
provides a genera] bi-directional I/O 
port that can be used for genera] 
interfacing applications. And indeed 
we see a range of peripherals that use 
this port, from teletext adaptors to 
Centronics printer drivers. However, 
Commodore really intended to 
implement this port as an RS232 
interface, using a 6551 Asynchronous 
Comms chip. Due to an ordering snarl 
up A they couldn't get the ICs, and so 
the parallel port stayed and RS232 was 
implemented in software, 

In the UK, if we want RS232, we 
normally buy an interface that plugs 
into the cartridge port or serial bus, 
and contains said 6551 and some 
decent drivers. This is because the 
built-in port can't handle more than 
about 300 baud reliably. But in the 
States, all their modems and things 
plug into the built-in RS232. 

And so to the Plus/4. At this time, 
Commodore finally got their act 
together and produced a real RS232 
port using the proper hardware, 
running at decent speeds ( up to 19,200 
baud), This is what you have on the 
edge connector at the back of the 
machine, It is the same pinout as the 64 
(from the RS232 viewpoint) so that the 
64 async peripherals will plug directly 
in, This might seem to be of minority 
interest to UK users who want the 
parallel port, but unfortunately 75% 
of the users are Americans who want 
RS232, 




Dear Tim, 

I have typed in several games on my C64 
which are for a friend's son and are for a 
Plus/4, 

I appreciate that they mil not run on 
the 64 and that certain items tike flash 
commands mast he added after they are 
loaded info the Plus/ 4 but how do I get 
them to toad and list? I ob vioasfy need to 
change the start point for BASIC hat 



how do I do this, and what should it he? 
DJ. King, Huntingdon 



Hi Mr King, 

From the BASIC point of view, the 
essential differences between a C64 
and a Plus/4 is the amount of 
memory available, the additional 
sound, graphics and disk keywords of 
the Plus/4, and the start location for 
BASIC text. 

Of these three^ the memory aspect 
can be discounted, since you are 
writing on the machine with less 
memory to transfer onto the machine 
with more. 

The st; i r t of E) ASIC, similarly is not 
really important, as all BASIC 
programs on the C64 and Plus/4 (and 
C16 and 128 machines) are designed to 
relocate themselves to wherever the 
start of BASIC might be. The upshot 
of this is that LOAD "PROG- 
NAME'\8 wilt work on any machine 
except the Ph i , As to where the start 
of BASIC sits, on the C64 it is at 
location S0801, and on the Plus/4 it 
can be in one of two places. depending 
on whether you have a graphics screen 
active or not. These two locations are 
$1000 {without graphics screen) and 
$2000 (with graphics screen). 

When you type a line of BASIC 
and press the return key, the computer 
scans what you have typed for words 
that it recognises and converts them 
into one or two byte tokens. This was 
originally purely to save memory, 
since a token takes up much less space 
than the word itself. Any words that it 
does not recognise are assumed to be 
variables and so are left alone. 

When you run the program, these 
tokens are indexed into a lookup table 
which points to the section of ROM 
that perforins the function you are 
asking the computer to do. If the 
keyword has not been to ken is ed {for 
instance typing FLASH on the 64), it 
cannot find the entry in the lookup 
table and so will crash. Similarly 
BASIC 3.5 tokens will fall off the end 
of the 64*s lookup table, and it will also 
crash, 

One further point regarding 
transfer of programs from one 
machine to the other, the cassette 
system used by the Plus/4 and C16 is 
incompatible with that used in all 
other Commodore computers, so 
programs can only be transferred 
through the use of disk media. 




Dear Tim, 

I am writing to you because I think your 
' magazine seems to have a much more 
mature paint of view to Commodore 
computing than others such as C+^G 
and Commodore User, 

I have a very important question to 
ask. I have written to both magazines 
above (with S.A.E.) and had no reply so 
I hope very much you will "try to 
oblige". I bought the C64 last 
Christmas and I have been getting on 
very well with it until f found out that / 
was leaving the country to go to Chile 
(South America). So my question is will 
it work over there? Do I need any special 
cables? If so, which? I am using a f \ K. 
Will I need a monitor? Will a monitor 
from over here work on it? Please reply, 
preferably with good news. 

P.S. what do you think of the letter 
quality? Printed by the "Silver Reed 
Colour Pen Graph*'. Could you tell me 
if there is any compatible software for it 
to draw graphics? 
Rodrigo Araya, Bristol* 




Hi Rodrigo, 

OK, the easy bit first, you don't need 
any special cables, neither will you 
need to use a monitor - a TV, is quite 
acceptable, regardless of the countrv 
you are in. As for the rest of your 
question, I had to do some digging. In 
the UK, and in most of Europe, we use 
a TV system called P.A.L. which 
stands for Phase Alternative Line. 
Additionally our TV system has 625 
'scan lines' making up the entire 
picture, Chile, and indeed most of 
South America has adopted a different 
TV system, called N.T.S.C. which 
stands for North American Television 
Standards Committee. Their T V. 
system has 525 scan lines on the screen. 
The result is that the two are mutually 
incompatible, and you will have to sell 
your 64 system and buy another one 
when you get there. 

The mains voltages in Chile are 
also different to ours, and so the 64 
would not work even if you took your 
P.A.L. television with you (which 
could have been an option, although 
you would have been able to watch 
local TV on it). 

The quality of your printer is quite 
good. If it is 'Epson compatible", it 
should be able to run most of the 
printed graphics packages that are 
around at the moment. 
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Sprite Library 

More tips on Sprite manipulation on the Commodore 64 

by Mike Benn 



Tihis month we get out the geome- 
try set. All the sprite definitions 
are based on single sprites and 
use hires. The table best itJustates the 
variations on this month's theme with 
a mixture of animated sequences and 
single shapes. 



GETTING IT ALL IN 

Type in the basic loader as published 
and save it-do n't run it or it will self- 
destruct. Before running the loader 
program, you 11 need to reset the 
computer and type directly in the 
following 

POKE43jftTOKF^ 

- and press return. This will trick the 
computer into believing that the basic 
now starts at $4000 instead of $0801 „ 



Load in the basic loader and run 
it; if error free, the program will 
automatically save itself as a block of 
data. If you reload that data in the 
future, remember to add a I after the 
device number. The data is saved in 
the following location: $2800-$37FF. 

The sprites run from 160 to 223 
in a compromise to avoid the area 




$2000, traditionally set aside for 
redefined character graphics, and to 
avoid the need of typing in line after 
line of data. 

If only one or two sprites are 
required, then use this formula - (sprite 
block No -160) *40 + 190 = the data 
line number at which that sprite blocks 
data .starts. Remember to type in the 
following three lines of data, and alter 
the variable BL to the number of data 
lines you have in your finished pro- 
gram, le^s 1. 

The small basic program GEOM, 
DISPLAY, will variously animate the 
sprites in both non expanded and 
expanded forms on the screen simul- 
taneously. To hold on any sprite, enter 
the same number for Start and End. 

Any sprite Editor program will 
enable you to change and adapt the 
individual sprites to your own 
requirements. 



TABLE (Geometric — Hires) 



A0 - A3 
A3 - A6 / 
A7-AB/ 167 
AB- B3 / 171 
B3 - BB 
BB - BD / 
BD C3 / 
C3 - C9 / 195 
CA CE / 202 



160 
163 



179 

187 
189 



- 163 Growing triangle 

- 166 Spinning triangle 

- 171 Growing square 

- 179 Rotating square Y axis 

- 187 Rotating square X axis 

- 189 Turning square 

- 195 Rotating diamond X axis 

- 201 Rotating diamond Y axis 

- 206 Growing pentagon 



CF f 207 inverted pentagon 

D0 - 04 / 208 - 212 Growing hexagon 

D5 / 213 Turned hexagon 

D6 / 214 6 pointed star 

D7 / 215 Turned six pointed star 

D8 / 216 Cube 

D9 - DE / 217 - 222 Growing octagon pattern 
DF / 223 Octagon 
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Personal 
— File 



Database 



Avoid elaborate and time-consuming 
editing procedures with this 
word processing /database system 

By Eric Randall 




This utility is a cross 
between a word 
processor and a 
database system. It's aimed 
at the user who needs to 
maintain files of text* and 
be able to readily update 
and amend the material, 
without the need to learn 
and remember elaborate 
editing procedures. To 
achieve this, it uses the 
C64's normal screen editing 
functions, with one or two 
more added, and all the 
instructions needed to use 
the system are displayed 
(except when setting up or 
editing a page of text). 

The data is held in 
pages containing complete 
screens of information. 
Each may be recalled and 
updated as often a$ 
required, using the function 
keys as explained in the 
main display. New pages 
may be inserted or old ones 
deleted, and the entire file 
in memory can be printed. 
If, when editing a screen, 
you need to refresh your 
memory on which function 
key to use. press return to 



save what youVe already 
typed in. The main display 
will appear and, after 
checking the instruction^ 
recall the page you were 
editing by using the F5 key, 

Having set up a file of 
data, it may be saved to 
disk. To simplify the disk 
housekeeping, the program 
takes care of naming files, 
and you're asked if you 
want to overwrite an 
existing file. The file names 
start with "++data" and end 
with a number in the range 
0 to 9. All the user needs to 
remember is which number 
is used for a particular file. 

For the technically 
minded, the data is held as 
screen codes, not ASCII 
codes. If you want to 
extend the scope of this 
system, this must be taken 
into account, Furthermore, 
the data are compacted 
before filing to disk > so the 
disk file formats differ from 
those displayed on the 
screen. The areas of 
memory used by the system 
are as follows: 



Basic Program 


- S0800 


-$1185 


Housekeeping data 


- S6400 


- $64 FF 


Storage for screen pages 


$6500 


- $8BFF 


Area for packing and 






unpacking data prior to 






storage on disk 


- S8C00 


- S9FFF 


Machine 


- scooo 


SC4B0 
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For those wishing to 
experiment with and extend 
the system, the entry points 
to various machine code 
routines called from the 
main BASIC program may 
be useful. Most of these 

LOADING FILES 



routines require parameters 
which are taken from 
various locations between 
£6400 to S64FF. These are 
set up in the main program > 
and the references are as 
follows:- 



I .ines 300-350 S YS49320 (JC0A8) 
SYS50248 ($C448J 

SAVING FILES 

Lines 90-210 SYS500£3 (SC3AD) 
SYS49299 (SC093) 
SYS49348 (SC0C4) 



load a file 
unpack data 



- pack data 

- save a file 

- overwrite 
existing file 



CREATING NEW PAGE OF DATA 

Lines 500-555 SYS49510 (SCI 66) turn on interupt 
routine to scan for function keys which 
Tabulate up and down and which insert 
and delete lines. 



SYS49535 (SC17F) turn off interupt 
routine 

SYS49152 (SC000) store screen 

UPDATE PAGE 

Lines 700-720 SYS49243 (SC05B) - display stored 

page 

SYS49510 (EC 166) - turn on interupt 

routine 

SYS49535 (SX17F)- turn off interupt 

routine 



PRINT FILE IN MEMORY 

Lines 800-840 SYS49358 (JC0CE) - Print file 

DELETE A PAGE 

Lines 600-605 S YS499 16 (EC2FC) - delete a page 
INSERT A PAGE 

Lines 650-655 SYS50000 (SC350) - insert page 

USING THE SYSTEM 

To start you off using the headings of personal 

system, a data file is information for you to fill 

included on the disk as file in the details, 
number 0. This contains the 



Introduction to 



Graphics 
on the 




by Allen Webb 
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The first of a two-part 
series examining the 
considerable graphics 
potential of the 
Commodore 64 



For many new owners of the 
Commodore 64, playing games 
soon becomes inadequate, and 
they turn instead to programming and 
trying to emulate the graphics effects 
that the game writers achieve. The 
machine's manual will help you a little, 
but it makes no attempt to get to grips 
with the not inconsiderable graphics 
capabilities of the machines. In this 
series, 111 give you a taste of what you 
can achieve with Basic, You must 
realise that using Basic will limit your 
potential, but you will nontheless be 
able to get some excellent results. 

The heart of the graphics power 
of the 64 is the VIC chip, which has 
a collection of memory mapped 
registers which handle graphics. It's a 
rather sad fact of life that Basic doesn't 
support graphics in any way. Instead, 
you'll have to learn a collection of 
POKE commands to manipulate the 
VIC registers, Table I gives a summary 
of the registers and their functions, 

TABLE 1 



Memory 
Address 



53248-53263 

53265 

53269 

53270 

53271 

53272 

53273 

53275 

53276 

53277 

53278 

553279 

53280 

53281 
53282-53284 
53285-53286 
53287-53294 



Function of register 



Sprite position registers 
Control Register 1 
Sprite display enable 
Control Register 2 
Sprite Vertical Expand 
Memory Control Register 
Interrupt Flag Register 
Sprite Priority Register 
Sprite colour mode 
Sprite horizontal expand 
Sprite collision detect 
Sprite collision detect 
Border colour 
Screen colour 
Background colours 
Sprite multicolours 
Sprite colours 



In these articles 1 will explain how to 
tweak these registers to good effect. 



First - I must discuss how the machine 
manages memory. The Commodore 
64, as indicated by its name, has 64 
kilobytes of memory. This can be 
imagined as a sequence of 65536 boxes 
with can obtain data, EAch box (or 
memory location) is numbered, start- 
ing at 0 and continuing to 65535, The 
number of the box is called its address 
The machine uses various chunks 
of memory for various purposes. Due 
to its ROM - ba^ed software, the 64 
uses the same areas of memory for its 
various Junctions, You can, however, 
change things around if you wish. The 
VIC chip can address only I6K of 
memory at any one time. The 64 has 
four "banks" of I6K available for use, 
and these are numbered as shown in 
Table 2. 



TABLE 2 



Bank Number Block of memory Z 

0 0 - 16383 3 

1 16384- 32767 2 

2 32768 -49151 1 

3 49152- 65535 0 



When you turn on the 64, bank 0 is 
automatically selected. This means 
that the VIC chip expects to find the 
screen memory and the character set 
designs in this area. You can, if you 
wish, change the bank by altering a 
register in another important chip, the 
CIA number 2. The bottom two bits 
of location 56576 determine the 
memory bank in use, To change the 
bank, you use the following two lines: 

POKE 56578, PEEK(56578) OR 3 
POKE 56576, (PEEK(56576) AND 
252) OR Z 

Using some banks will give a screen 
full of garbage. 1 will tackle this feature 
fully next time, so forget all about it 
for now, 

The display uses a block of memory 
to hold its contents. The display 
consists of 25 lines of 40 characters, 
requiring 1000 bytes. In the default 64 h 
the screen memory starts at memory 
location 1024 and continues to loca- 
tion 2023. In order to provide colours, 
each screen location has a correspond- 
ing colour memory location. This 
occupies the 1000 bytes starting at 
55296. The colour memory is always 
at this address. Try the following 
program to see how it works: 



10 FOR I = 0 TO 999 

20 POKE 1024+1, 1 

30 POKE 55296+ J,RND(I)*16 

40 NEXT I 

The machine also needs to know 
what shape the characters are, and this 
information must be held in the active 
memory bank as well. Because the 64 
is an 8 - bit machine, it allows a 
maximum of 256 characters Each 
character requires 8 bytes of memory 
to hold its shape data. Hence, the full 
character set requires 2048 bytes. Since 
there are two full character sets 
available, a total of 4096 bytes are 
used. In the default system, the 
character set is held in a Read Only 
Memory, and is found in the block 
4096 to 8191. Because this data is held 
in this way, it occupies the same ^pace 
as Random Access Memory, so that 
you don't lose any memory. Given 
these facts. Table 3 shows a general 
memory map: 

TABLE 3 



Memory Address 

0 - 1023 
1024 - 2023 
2040 - 2047 

2048 - 40959 

53248 - 53294 
55296 - 56295 



Use 

Used by system 
Screen memory 
Sprite pattern 
pointers 

Used for BASIC 
programs 
VIC registers 
Colour memory 



The parts of memory not described are 
occupied by the system ROMs and 
other chips. The position of the screen 
memory and the character set are 
determined by the contents of the 
memory control register in the VIC 
chip (53272), More on that in a 
moment. 

When you put a value in a screen 
memory location, the system translates 
this value into a specific character 
pattern in the character memory. A 
value of 0, for example, uses the first 
pattern (or group of eight bytes). This 
pattern represents @ - value of one 
uses the second pattern and so on. The 
following program shows the full 
character set by POKEing the full 
range of values into the screen 
memo ry: 

10 FOR I = 0 TO 255 
20 POKE 1024+1,1 
30 NEXT 1 

The next step is to place a character 
at a specific place on the scree n r If R 
is the row and C the column, the 
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► 



correct address is given by: 
I024+(R-1)*40+(C-1) 

Where R h in the range one to 25. 
and C is in the range one to 40, 

The following example uses this 
relationship as a function to move an 
asterisk diagonally across the screen: 

10 DEF FN A {R)=1024+(R-1)*4<HC- 
1) 

20 FOR R=l TO 20 
30 C=R 

40 POKE FN A (R) h 42: FOR D=l TO 
30: N E XT D 

50 POKE FN A (R),32: FOR D=l TO 
30: NEXT D- 
60 NEXT R 

This routine firat puts on asterisk at 
each point (character 42) followed by 
a space (character 32), The two loops 
in lines 40 and 50 are simply delays 
to give a better effect. While making 
some progress, this effect is a little 
boring. What's needed are custom- 
designed characters, but how can we 
achieve this? As I have already des- 
cribed, the normal character set is 
etched in a ROM, and what we want 
is a character set in RAM. The secret 
is to redirect the pointer to the 
character set to a handy bit of unused 
RAM, The memory control register 
allows this. The bottom four bits of 
this register decide the offset position 
of the character set in any given bank. 
Take a look at Table 4. 

TABLE 4 



Memory Offset Z 

0 0 

2048 2 

4096 4 

6144 6 

8192 8 

10240 10 



[0 POKE 53272, (PEF.Kf 53272) 
AND240) OR 14 

20 DATA 0,60 J 26, 1 02 J 02, 1 26,60,0 

30 DATA 0,0,0,24,0,0,0 

40 FOR 1=0 TO 15: READ X: POKE 

14336+lX: NEXT 1 

50 FOR 1=0 TO 7: POKE 

14336+32+8+1,0: NEXT 1 

60 DEF FN A (R)=1024+(R-I}*40+(C- 

1) 



12288 12' 
14336 14 



The character set pointer is changed 
by using: 

POKE 53272, (PEEK(53272)AN- 
D240)OR Z 

To find the start address of the char- 
acter set, you simply add the offset to 
the start address of the bank (given 
in table 2). Let us consider how a char- 
acter is designed. Here is a sample 
character: 





00011000 = 


24 




00111100 = 


60 


** ** 


01100110 = 


102 




01111110 = 


126 




01 1001 10 = 


102 




01 1001 10 = 


102 




01 1001 10 = 


102 




00000000 = 


0 



The stars represent visible dots, and 
the dots represent spaces. Each pattern 
can be converted to an eight bit binary 
number by replacing stars by 1 and 
dots by 0. These numbers are then 
converted to decimal, and the resulting 
eight numbers arc those used in the 
pattern table. Here is an example of 
a reddincd character: 





00000000 = 


0 


**** 


001 11 100 - 


60 




01111110 = 


126 




01 1001 10 = 


102 


+ + •* 


01100110 = 


102 


****** 


01 11 J 1 10 = 


126 


**** 


00111100 = 


60 




00000000 = 


0 



The following example uses this 
character plus one other to produce 
stunning animation... Gasp! 



70 FOR R=l TO 20: C=R 

80 POKE FNA{R),0: GOSUB 200 

90 POKE FNA(R),I: GOSUB 200 

100 POKE FNA(R),32: GOSUB 200 

110 NEXT R 

120 END 

200 FOR D"l TO 30: NEXT D: 
RETURN 



In this example, 1 have placed the start 
of the new character set at 14336. Line 
40 reads the new character data and 
puts it into the character data table. 
Line 20 holds the design described 
earlier. Line 50 sets the space character 
(32) to a space. The rest of the 
characters are garbage, since we 
haven't set them to anything interest- 
ing. If you want to return to the normal 
character set, the quick and dirtv way 
is to press RUN /STOP and RES- 
TORE together. 



The normal display comprises two 
colours, the background and the 
foreground - in Sinclair Spectrum 
terms, paper and ink and some 
border colour, These colours can be 
easily altered by putting the colour 
value (0 to 1 5) into the re le vent register. 
The registers are: 



Border 53280 
Background 53281 
Foreground 646 

Since these registers use only the 
bottom 4 bits or the stored value, any 
value greater than 15 will simply result 
in cycling the colour sequence. In 
general, you should ensure that the 
value stored in any VIC register is 
accurately controlled since an incor- 
rect value will at best give odd results 
and at worst a nasty crash - be 
warned! ! 

In the default, or high resolution 
mode, a set point on the screen is 
displayed in foreground colour, and 
an unset point in background colour. 
While this gives the greatest clarity, 
it is not bust suited to pretty graphics. 
So we enter multicolour mode, which 
can give you up to four colours in any 
one character. The penalty is that the 
horizontal resolution is reduced from 
eight dots per character to four. The 
reason for this is that each pair of dots 
in the character pattern determines 
which colour is used. The colours are 
obtained as shown in Table 5: 

TABLE 5 



Colour Source Bit Pair 

background 5328 1 00 
background 1 53282 01 
background 2 53283 JO 
low 3 bits of 11 
colour RAM. 
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Let us consider one byte of a pattern; 
.„***» = 0001 101 1 

In high resolution mode, this would 
look like a pair of dots. If we split 
it into four pairs of bits we get another 
image: 

0001 101 ! = 00 01 10 11 



Using Table 5, we can sec that in 
multicolour mode, the first pair would 
appear as the background colour, the 
second pair would appear as a dot 
coloured in background one> the third 
as background two and the last as the 
colour ram. Because only the bottom 
3 bits of the colour ram is used, this 
bit pair can only use the first eight 
colours. The other bit is used to toggle 
multicolour mode for the particular 
character. You see, if the fourth bit 
it set, the character is set to multi- 
colour, or else it is set to high reso- 
lution, In practical terms, you simply 
add eight to the colour value (in the 
range nought to seven). This allows 
you to mix both modes on screen, To 
turn on multicolour mode you use; 

POKE 53270, PEEK{5327Q) OR 16 
and to turn it off: 

POKE 53270, PEEK(53270) AND 239 



The next example sets up a black 
screen and puts a multicolour char- 
acter next to the same character in high 
resolution mode. 

10 POKE 53280,0: POKE 53281,0 
20 POKE 53282,6: POKE 53283,3 
30 POKE 53270, PEEK(53270)OR 16 
40 POKE 1024,1: POKE 1025,1 
50 POKE 55296,1: POKE 55297,8 



The lines 10 and 20 set up the colour 
registers. Line 30 turns on multicolour 
mode and line 40 puts an A in the 
top left two screen positions. The first 
POKE in line 50 clears the fourth bit 
of that particular colour memory 
location, thereby setting the ink colour 
to white, and setting the character to 
high resolution, The second POKE 
sets bit 4, thereby setting the ink colour 
to white and setting the character to 
multicolour. 

Trying to design multicolour char- 
acters "by hand" is both tedious and 



difficult - if you want to get good 
results, it would he worth your while 
investing in a good quality character 
designer. 

If all of this is not enough, there 
is one more character mode - extended 
background mode. In this mode you 
have a high resolution character, but 
with a choice of four background 
colours. This time the system gets the 
colour choice from the screen contents, 
In simple terms> the background 
colour depends on the character on the 
screen, and the foreground colour 
depends on the colour memory. Table 
6 shows how: 



TABLE 6 



Colour Register 

53281 
53282 
53283 
53284 



Character range 

0-63 
64-127 
128-191 
192-255 



To turn on extended background you 
use: 

POKE 53265, PEEK(53265) OR 64 
and to turn it off: 

POKE 53265, PEEK( 53265) AND 191 

Here is a simple example: 

10 POKE 53280,0: POKE 53281,0: 
POKE 646,1: PRINT CHR$(J47) 
20 POKE 53284,1 1: POKE 53282,12: 
POKE53283J5 

30 POKE 53265, PEEK(53265) OR 64 
40 FOR 1=0 TO 255 
50 POKE 1024*1,1 
60 NEXT I 

This is simply a repeat of an earlier 
program. Here I have used PRINT 
CHR$(147) to clear the screen. On the 
newer 64s this fills the colour RAM 
with the current foreground colour. By 
the way donl try to use extended 
background mode with multicolour 
mode - it won't work. 

As I mentioned earlier, it's possible 
to relocate the block of memory used 
for the screen display by altering the 
relevent bits in the memory control 
register (53272), This time t it's bits 4 
to 7. For most users, this option is 
not of great use, but it does offer the 
option of having several screens active 
at once, with a simple means of 
switching between them. This could 
allow animation sequences, and other 
effects. 

In a manner analogous to the 
character set, the screen can occupy 



a range of positions. This time, in view 
of its lesser size^ the screen can be 
placed in one of 16 positions. These 
positions arc in increments of 16, 

Table 7 shows the available options: 

TABLE 7 



Location of Screen Z 

(offset from start of bank) 

0 0 

1024 16 

2048 32 

3072 48 

4096 64 

5120 80 

6144 96 

7168 112 

8192 128 

9216 144 

10240 160 

11264 176 

12288 192 

13312 208 

14336 224 

15360 240 

The first step is to change the pointer 
to the screen with: 

POKE 53272, (PEEK(53272) AND 15) 
ORZ 

As before, the start address offset is 
added to the start address of the 
current bank to get the absolute screen 
address. We if you intend to use 
BASIC, you must also tell the editor 
where the screen is. A pointer to the 
page occupied by the screen is held 
in location 648. This must be altered. 
You gel the page by obtaining the 
absolute address of the start of screen 
memory (as described in the last 
paragraph) and dividing it by 256. The 
6502 micro -processor handles memory 
in pages of 256 bytes. The result is 
POKEed into location 648, 

I must apologise to beginners for 
the large amount of theory in this part. 
Unfortunately it is unavoidable, and 
in any event, I want this short series 
to become a simple reference guide to 
which you can refer when necessary. 

Well, that's about it for now. With 
the building blocks developed here, 
you should be able to start developing 
some interesting graphics of your own. 
Next time, 111 be looking at bit- 
mapped graphics and sprites. 1 will 
also include a small package of 
machine code routines which will ease 
the use of the VIC chip. 
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Relative File i 
Programming 

To conclude this series. T have IjPiPVPIiPIVIPPiiiHPPPiBfl comparison insk 

included every routine, in dud- WMfflM I reading, not the 

ing those for Basic 2 as well as ffiSS I the relative inde: 



In the last of his 
series, Eric Ramsay 
gives some expert 
advice on 
m filing with 
P^fe Commodores 



To conclude this series, I have 
included every routine, includ- 
ing those for Basic 2 as well as 
the easier Basic 7, that is necessary for 
you to program your own files in Basic. 

Vd also like to make a few sugg- 
estions which you might consider for 
your own applications. For example, 
where you have many thousands of 
records to access, you would of course 
have the Key field Search Routine IVe 
already shown you + This is quite fast 
being able to find, in my case, a 
match in one record in a file of oyer 
1,000 in less than nine accesses - but 
there is another way: an index file. 

An index file contains details, not 
of all your records (although it could, 
this would be very wasteful), but of 
selected records r As you may recall, 
the search routine included a routine 
which repeatedly halved the numbers 
of records until it arrived at the one 
starched for: a method similar to this 
could be used in order to write an 
'access ' file. For example, imagine you 
have 4000 records already created, that 
have already been sorted, These could 
be sectioned, a sample record at each 
section read, and the keyfield found 
there saved in a file. This would be 
something like this: 

5000 a(0)-int(rn/2):forq=lto5:a(q) 
=int{a(q- 1 )*2)mextq 

This loop has effectively sectioned 
the file, so that using them you may 
take a sample of the sorted keyfield 
at that point. 

Once having run this routine, a 
separate index file will exist which you 
can use to narrow down the .search of 
a particular string within the keyfield 
by using the same loop: 

At this point, the loop to read in 
the comparison sample string has been 
opened, and is then compared with the 
search string inputted previously, If the 
search string is less than that of the 
comparison string, then obviously if 
a match is to be found it ipust be within 
the previous sample range. A(A-l) 
stores the record number for the 




previous range of sample, so the 
beginning variable is set to that. The 
limit is set; 

FOR PO ~ A(beg) TO A(BEG- 

!);RREC=RSRT%(PO) 
and the read routine can be called, This 
facility automatically limits a sequen- 
tial scan to exactly the range where 
the record match is to be found. In 
a file of 4000, this -would reduce a 
search to 65 records. 

Sequential data access 
method 

If you*re planning a relative file with 
a fixed keyfield, you may care to try 
the sequential data access method. 
This docs not require a sequential file 
as an index, but several relative files, 
all inter-related. This is suitable only 
for a static file, one which is not 
continually being amended, added to 
or deleted from. The principle is as 
follows: 

The keyfield only is stored, 
together with its sorted record number 
in a separate relative file according to 
its alpha or numeric value. Thus, a 
record with the keyfield of Smith John 
would be filed, in alphabetical order, 
in a relative file for keyfield s beginning 
with S. A short routine would detect 
the first letter of the search string, 
either by its ASCII value or by 



comparison inside a string, and then 
reading, not the full relative file, but 
the relative index file. The index file 
would be opened, and each record 
scanned until the match was made. In 
this case, the program would read the 
record: 

SMITH John 3129 

The number 3129 would direct the 
program to precisely the correct record 
number to access. 

More than 256 bytes per 
record 

Impossible, you might say. Well, yes 
and no. There's no reason why you 
should limit yourself to the DOS 
maximum of 256 bytes per record. You 
might like to try using a record as one 
field of a database record. Confused? 
Well, imagine you wanted six fields 
per record, each of 80 characters. This 
would clearly be outside the DOS 
maximum record size - 480 bytes. 

But if you were to treat each of 
the disk records as a field, then you 
could have 2088 fields in your file. 
There would be six of these fields in 
each of your file records, so you would 
have a maximum of 348 file records 
for use. Searching a particular field 
would be a doddle. To read tl\e first 
field of your file record would mean 
looking at the first seventh, 14th, 21st 
record and so on. 

Taking that a stage further, you 
might wish to consider having a 
separate relative file for each field in 
your file record. Your total file length 
could then be the total formatted 
capacity of your particular disk drive 
divided by the number of fields you 
wished to use. In this way, every byte 
of your floppy would be used. 

Taking that a stage further, if you 
used two disk drives, you could place 
half of your file record on one drive 
and the other half on the second. This 
would mean a total file capacity of 
349,696 bytes on two 1541, or 1570 
drives, and 699,392 on two 1571 drives. 
Now that would be a challenge! 
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Am 



W 




Your chance to have your say 



When t look at my 128 
and my Amiga 1 am 
reminded strongly of the 
old fable of the 
Grasshopper and the Ant. 
The Grasshopper played all 
summer long, leaping and 
gambolling all over the 
meadow, showing off, but 
never doing anything really 
useful. The Ant on the 
other hand toiled steadily 
away, doing all the real 
work and laying up stores. 
When winter came the poor 
old Grasshopper had no 
reserves so he perished. At 
least the Amiga has made it 
through the winter, and 
done enough in the video 
field to make sure it will 
prosper, but while it may 
remain the machine for the 
future, I maintain that the 
128 is that of the here and 
now, 

I am not knocking the 
Amiga. I think it is a 
wonderful machine. If your 
main interest in in video 
graphics then the Amiga is 
your only choice. It is what 
1 had hoped the C64 would 
be like when 1 bought it 
nearly five years ago. 1 
remember, however, 
tramping around the 
computer shops trying to 
find a decent program, and 
am amazed at the things 
that are now being done 
with a C64. Even the 
designers hadn't any idea 
how powerf ul it would 
prove to be. The Amiga is 
in the position now that the 
C64 was five years ago - 
full of promise and 
potential^ but with no really 
great programs around to 
exploit it. I only hope I 
won't have to wait another 
five vears for the 




programmers to get to 
know the Amiga. 

1 started with a C64, but 
hankered after an 80- 
column screen, so I took 
the plunge and bought a 
Commodore 128 and high- 
resolution colour monitor. I 
have never regretted it. 
Despite the scarcity of 
programs written for 128 
mode there were enough to 
make the 128 a real work- 
horse, and in any case one 
could revert to C64 mode 
to play Elite, Leaderboard 
World Class, Chess or 
Bridge, 

But always there was 
the sheer usefulness of the 
12S» I look on my wife's 
correspondence as secretary 
of a charitable 
organisation, did Deanery 
Dates for the vicar, and 
later produced professional- 
looking posters for both of 
them. Later 1 ventured into 
writing simple programmes 
in the enhanced Basic that 
can be found as the 
programming language of 
Superbase. It is this tireless, 
accurate, time-saving, data- 
gobbling aspect of home 
computing which fascinates 
me. 

When the Amiga first 
arrived it was priced out of 
my reach. I could only envy 
those who could afford one, 
I think the majority of 64/ 
128 owners felt the same. 
Then came the A50Q, and I 
decided that 1 ought to 
keep up with the times. I 
chose the relatively cheap 
way in by buying an A 500 
and having my 1901 
Monitor converted by 
Tri logic of Bradford for 
only £25, It equals the 
dedicated Amiga Monitor 




lor colour and definition, 
but it can, of course, still be 
used with the CI 28. 

I must confess that I 
was almost drooling over 
the new possibilities - a 
seemingly endless memory, 
and a very speedy disk 
drive. New technology 
would open the flood-gates 
and things would really 
take off. True, there weren't 
many programs available, 
and even games were twice 
the price, but time would 
cure that. The instantly 
noticeable difference was 
the graphics. No more 
clumsy blocked sprites. No 
more peering into a blurred 
screen trying to guess which 
chunk of blocks was the 
alien. I bought Defender of 
the Crown and marvelled at 
the incredible detail Then I 
took a flight round the 
Statue of Liberty and the 
rot set in, Instead of the 
rounded lady of the C64 
(albeit floating past the side 
windows rather jerkily) I 
could see only a cardboard 
cut-out. I may be wrong. 
Maybe my copy has a 
glitch r But the first faint 
shadow of doubt had crept 
in. The sun was beginning 
to cloud over a little. 1 
returned to Defender of the 
Crown. The scenery was as 
delightful as ever, but was 
the game-play a little 
stilted? Even boring? Yes it 
was. Very! I bought 
Leaderhoard for the 
Amiga. Quite frankly I 
preferred the multiplicity of 
courses on the C64 B And it 
played just as well as on the 
Amiga. Star Glider was 
quite good, but 1 prefer 
Elite on the 64, 

Ah, yes, but it must be 



much better for the really 
productive work? Well, I 
have tried Scribble, 
Vizawrite Desktop and 
finally Wordperfect, but for 
a really user-friendly yet 
very powerful word- 
processor, which can be 
customised with a built in 
language, give mc 
Superscript 128 in W 
columns on the CI 28 any 
time. Yes I know that 
familiarity plays a part, but 
a new, powerful 16-bit 
program should overcome 
that, surely. 

1 will continue to work 
with the Ant, while playing 
with the Grasshopper, 
waiting impatiently for it to 
get down to some real 
work. With 128s available 
second-hand for £125 (try 
Once Bytten) and lovely 
printers like the Panasonic 
1081 giving very near letter 
quality as cheap as £150 
new (with cable), it seems 
that the Ant has a lot of 
hard work in it yet. New 
programs and utilities are 
pouring in from America, 
and I gather that the new 
1581 3.5-inch disk drive is 
fast and reliable (six times 
the speed and four or five 
times the capacity of the 
old 1541, so I'm told). Most 
of the programs available 
are tried and tested, 
Spreadsheets, databases, 
wordprocessors and the like 
abound, all at prices far 
lower than similar material 
for the Amiga and PCs. 

So don't sell the C64 or 
1 28 to buy an Amiga. Save 
up a little longer, and buy 
an Amiga as well, and while 
you are waiting continue 
the good work with the 64 
or 128! 
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Routine 
Matters 



subroutine is required that will split 
the high and low bytes of the three 
locations needed. Using a local 
variable, Zl, the three bytes can be 
dealt with separately by this routine. 



GOOOO REM * BYTE SPLITTER * 
Zl-BYTE TQ BE SPLIT 
S0005 ZE-INT(Z1/?SSD =Z1-Z1-Z 
2*256 : RETURN 



Moving ROM into RAM is too slow in Basic - but 
there is a quicker way 
By Eric Doyle 



Routine Matters 




FRDGRAn- liEMDRY MDUER 



91 10 REN TYPE THIS IN AND S^UE 
IT 

22 EO REM TYPE NEW BUT BET ORE R 
ELDAD INE TYPE IN FDKEHS^PQ 
KEH4 , 64 : POKE 1 G3S4 , 0 1 NEW 

AB 30 REM THEN LQflD THE PRDGRflU 
USING a B OR P I - MOT a B s l □ 

R ,1,1 

F£ 40 DS-B3E18jaE-S7344:NE-163e 
4 

□ C 5D Zl "NE : GDSUB50C05 ; ZB~Z~r* ■. 2S 

-Zl 

91 EO Zl-OE ; 50SUS6000S: Z4-Z2 : Z3 
-21 

95 70 Z1-DS:G05UEEOQ05 

□ A BO FRlWCCLfiJ" 

CI 90 FORA-0TaSSS=PDKE1344+^ 1 fl; 
NEXT 

1C 100 P0KE56334, PEEK C SG334 >AND 
£54 

3B 110 PDKE1 , PEEKCDAN0251 

AF ISO BOS UB BOO 15 

F8 130 PDKE1 , PEEKC 1 J0R4 

15 140 P0KESS334.FEEKC 55334 J0R1 



It's not always that a whole 
character set has to be redefined, 
but moving ROM into RAM takes 
70 seconds. Machine code is much 
faster, and a memory mover is 
included in the Basic ROM, but the 
problem is how to access it. 

The memory move is called by 
several routines in the ROM, 
Principally it's called when a line of 
Basic has to be inserted into a 
program, A new line may be added 
anywhere in the program, and a space 
has to be made to allow this. This may 



09 150 P0KE53S7S, C PEEKC 532723 AN 

□e4D)+l2 
BG 160 FE INTCHRSt 14E} 
EE 170 F0RA-l22BBIDieEBB-'-4O95: P 

0KE^ a E5S-PEEKCAJ : IFA-1433STH 

ENPHINTCHRSEC14 J 

1B0 NEXT: I FB> S99THENPR I IMTCHR 

££142} -END 
BD 190 FORB-1T0IDOO: NEXT ■ GDTQ15 

O 

47 EOO REtl 
5D ELO REn 
S3 220 REH 

BO SOOOO REM * BYTE SPLITTER * 

Zl-BYTE TO BE SPLIT 
frE B0005 ZB-INT(21/S5E)jZ1-Z1-Z 

£*eSB: RETURN 
DF 5000G REH 
DE 60007 REM 

37 60010 S?£n ■ MEMORY PtQUER * 2 
1-LO OLD START: Ze-HI OLD STA 
RT:Z3-LD OLD END 

17 60011 REM Z4-HI OLD END : Z5"L 
0 NEU END : Z5-HI NEW END 
60015 P0KEG7B, IBS: PCKE673,ES 
1 j P0KE680 , 1 33 j PDKE6S 1 , 95 : POK 
E68B, 165 : P0KE6B3 , SSS 

CF G0020 P0KE6B4 1 133 r P0KE685 , 36 
; ROKt-.GBG r 7B : P0KE6B7 , 191 : POKE 
68B, 163 

B3 600E5 FDKESSl.Zl : PaKE85E,Z2 
BE G0030 PDKE90 J Z3;P0KEai 1 Z4 
FF 60035 POKEBB , Z5 : FDKEB3 n ZG 
4D B0040 SY5G78 
F9 6C045 RETURN 



mean that a few bytes or a few 
thousand bytes may have to be moved, 
so the routine has to be very pretty 
awesome. 

With no changes, the routine can 
be harnessed to move memory about 
quite happily, as long as the start and 
end addresses of the block to be moved 
are defined alongside the end locations 
of the new location. The two end 
locations are the actual end locations 
plus one byte. 

First of all, the subroutine will need 
to know these locations, so another 



The ROM characters are stored 
from 53248 to 57344, so these two 
values are fixed. It only remains to 
decide where the characters are going 
to be stored. The screen is located at 
1024. so the redefinable characters will 
have to be located somewhere in the 
first I6K. By raising Basic start to 
16384, the start of the character set 
could be 12288. 4096 (57344-53248) 
bytes are going to be moved, so the 
end location is 12288+4096 or 16384! 

Moving Experience 

The byte splitter routine returns the 
high and low byte values of each 
location as Z2 and ZZ1 respectively 
so, after each location has been split, 
the program must reasign these 
variables as something else. Our block 
moving routine will use four variables 
from this process so Z6 to Zl can be 
used: 

G0010 REM * MEMORY F1QUEH * Z 
1-LO OLD START ; I OLD STft 
RT:Z3-LD OLD ENO 
50011 REfl Z4-HI OLD END-25-L 
□ NEW ENDrZE-Hl NEU END 



The ROM routine takes the start 
location from locations 95 and 96 (lu- 
hi format), the end location is stored 
in 90 and 91, and the new end location 
is expected to be in 88 and 89, This 
would be a simple case of poking the 
calculated values into these locations, 
except for one thing - locations 95 and 
96 are frequently used by Basic, and 
would be cleared by the POKE routine 
itself. 

The only way round this is to set 
up a very short machine code routine 
which stores these two values and then 
jumps into the ROM routine at 4191 9, 
This is done by storing the high and 
low bytes in the free zero page 
locations 251 and 252 before the 
routine h called, 

First the code routine is installed, 
then the memory locations are filled 
with the correct values, and the code 
is executed with an SYS call: 
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B0015 POKEB7S, IBS : P0KEG79 , BS 
1 : POKEBBO , 133 : PDKEBBl , 95 : POK 
EBBE , 1G5 ; POKEGB^ , £5£ 
60050 PDKE6B4 p 133 s P0KE685 , 96 
; PDKEG06, 76: PDKE5B7 T 191: POKE 
BBS , 1S3 

G00£5 P0KEB51 s Zl : PDKE2BE, 2E 
B0030 PDKE9Q, Z3; PDKE91 ,24 
60035 POKEBB „ Z5 : P0KEB3 3 2B 
B0040 SVSS7B 
RETURN 



The machine code is entered as a 
series of pokes, because a loop which 
read data in could cause problems wilh 
data recessing whenever this routine 
was called, especially if there are data 
statements in the main program. 

To demonstrate the use of the 
program, there is a routine in the 
Listings pages at the back of the 
magazine which demonstrates how to 
move the character block into RAM, 
and then redefines all 256 characters 
as reversed versions of their original 
forms. After a short pause, this process 
is reversed to restore the characters to 
their original appearance. 

The loss of 14335 bytes of memory 



may seem like a large sacrifice, but the 
spare memory below 12288 could be 
used to store sprite date for sprites 32 
to 191. Alternatively, the screen could 
be moved higher up the memory, and 
the character set stored alongside it. 
This would mean a fairly complex set- 
up routine, however* 

Another use for this memory space 
would be to store a second character 
set. The character set in use could be 
moved to 2048 and the second 
character set could be moved from 
6144 to 12288. In this way, the two 
sets could easily be swapped at will 

Apply Yourself 

ROM moving is not the only 
application for this routine. Another 
exercise would be to use the routine 
in a program based on pull-down or 
pop-up menus. Even though the menu 
may only overwrite three lines of the 
screen to a width of maybe ony six 
or seven characters, the move 
subroutine could be used to store all 
three complete lines in the memory 
are at 49152. After the menu 



selection is made, the same routine 
could restore the three lines instantly. 

Tm sure that you will come up with 
many more ingenious applications, hut 
remember that the memory mover is 
a oneway device. For example, a block 
of memory could be moved to start 
at 2049 if its original start was 2048, 
but it couldn't be moved to 2048 if 
it started at 2049. The reason is that 
the memory moves work from the end 
to the start. Imagine that the block 
starts at 2049 and ends at 2100. If a 
move is attempted to cover 2048 to 
2099, what would happen? 

First of alL the routine would pick 
up the content of 2100 and store it 
in 2099. Next, the content of 2099, 
which has just been overwritten, would 
be moved to 2098 and so on. The result 
would be a block from 2048 to 2100 
which would only have one byte, that 
which was in 2100 originally! For 
safety's sake, make sure that any block 
moves doift access locations which the 
block to be moved already occupies. 
You can jump either way, but if you're 
going to jump, make it a big one. 



Binders 



Organise and protect your disk with 
Commodore Disk User disk binders ant 
data disks. 



Why not keep your Commodore Disk User program 
collection alongside your magazines in a stylish Disk User disk 
binder? The binder comes complete with 10 disk sleeves to 
organise and protect your program disks. Why not buy a disk 
binder to house all of your data disks? We can even supply 
Commodore Disk User data disks. The Commodore Disk 
User logo immediately identifies your disks and there's room 
to title them and document the disks details. 
Send for your disks and binders now! 



Prices are as follows: 

Commodore Disk User Binder £4.95, including 

10 sleeves. Order code BDYUI 

Commodore Disk User Binder with 10 sleeves and 

10 disks, £9,95 Order code BDYU2 

10 sleeves for insertion in binder, £1.50. Order code 

BDSIO 

20 sleeves for inclusion in binder, £175. Order code 
BDSIO 

10 Commodore Disk User data disks, £5.95, Order 
code BDDIO 




PRODUCT NAME 


ORDER CODE 


QUANTITY 


PRICE 


































Overseas postage add £1.00 






TOTAL 



All orders should be sent to: YOUR COMMODORE, READERS SERVICES, ARGUS SPECIALIST 
PUBLICATIONS, 9 HALL ROAD, HEM EL HEMPSTEAD, HERTS HP2 7BH. 
Please allow 28 days for delivery, 
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BEGINNERS 

First Steps 

The C128, C16 and PIus4 all have their own sets of 
strange error messages 

By Norman Doyle 



The extended Basics of the newer 
Commodore computers mean 
that extra error messages are 
required which don't feature on the 
C64, The Cl6/Plus4 machines added 
another six, and this was built-on with 
the advent of the CI 28 by a further 
five. 

Can't Resume 

Occurrence: programming error 

The TRAP statement acts like a 
GOSUB command, but acts globally 
like an interrupt routine. Whenever 
any error occurs, the program jumps 
to the error handling subroutine 
situated at whatever line number 
follows TRAP. The subroutine is 
terminated by RESUME, which acts 
like a RETURN in a GOSUB routine. 
If a program is written with the error- 
handling routine at the end and no 
END command is encountered, 
execution will run into the error 
routine, and when RESUME is 
encountered this error message will be 
generated. 

Loop Not Found 

Occurrence: programming error 

This means that a DO command 
has been encountered, but the program 
cannot find a corresponding LOOP 
command. 

Loop Without Do 

Occurrence: programming error 

This is the opposite of the previous 
error. It occurs when a LOOP 
command is encountered but a DO 
command isn't currently active. 

Direct Mode Only 

Occurrence: user error 

Some of the extended Basic 
commands, such as AUTO, can only 



be used in direct mode. In other words, 
they must be typed onto the screen, 
and then the RETURN key must be 
pressed. Any attempt to include such 
a command in a program will be met 
with this message. 

No Graphics Area 

Occurrence; programming error 

This means that the HEADER 
command was used without an TD to 
rename a disk without going through 
the lengthy procedure of formatting. 
Unfortunately, the disk chosen hasn't 
yet been formatted, so the solution is 
to repeat the HEADER command 
with an ID added. 

Bad Disk 

Occurrence; carelessness or bad luck 

At best, this means that the 
HEADER command was used with- 
out an ID to rename a disk without 
going through the lengthy procedure 
of formatting. Unfortunately, the disk 
chosen hasn't yet been formatted, so 
the solution is to repeat the HEADER 
command with an ID added, 

At worst, it means what it says - 
the disk is faulty. This can be caused 
through rough or careless handling, 
but occasionally it means that the disk 
was faulty in manufacture or simply 
worn out through over-use. Throw the 
disk away and start again with a fresh 
one. 

The next group of errors are the ones 
which only appear on the CI 28. 

Bend Not Found 

Occurrence: programming error 

When an IF.,. THEN BEGIN or 
IF.. THEN. ..ELSE BEGIN construct 
is found, the computer then looks for 



the corresponding BEND command, 
If it can't find one, it flags this error. 

Line Too Large 

Occurrence; rare 

The highest possible value for a 
program line is 63999, If an attempt 
is made to RENUMBER a program 
and any of the renumbered line values 
will exceed 63999, the command is 
aborted without being executed, and 
this error message is displayed. 

Unresolved Reference 

Occurrence: program error 

If an attempt is made to renumber 
a program and the programmer has 
erased a line which is referenced by 
a GOTO, GOSUB, ON or TRAP 
command, the RENUMBER routine 
will not be able to execute properly. 
Once again the command is aborted 
without any action being performed, 
but this time the unresolved reference 
message is returned. 

Unimplemented 
Command 

Occurrenc e: program error 

Two commands are included in 
CI 28 Basic, but have no action 
associated with them. These 
commands are QUIT and OFF, If 
either is used, the computer politely 
reminds the user that it is an 
unimplemented command. 

File Read 

Occurrence: operational error 

This means that a file or program 
has failed to load, The reasons could 
be because the disk has been damaged 
or because an over-anxious user has 
opened the drive door before the 
program has finished loading 
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Contributions 

So you own a Commodore? So you've 
written some programs? So why haven't you 
sent them to us? 



y 

M. our Commodore is always on the 
look out for new programs, hints and 
tips, articles and even regular series. In 
fact if you have something that you 
think could be of use to other Commo- 
dore owners we want to hear about it. 

So if you have got something which 
you think we may be interested in. 
How do vou go about submitting it to 

LIS? 

Below you will find a list of guide- 
lines that will help us to deal with any 
item that you send in to us. We don't 
expect everybody to be the next 
William Shakespeare but it' you do 
follow these simple rules then it will 
make our job a lot easier. 

1) If possible all material sent to the 
magazine should be typed or printed 
Out on a computer printer. 

2) All text should be double spaced i.e, 
there should be a blank line between 
each line of text. You should also leave 
a margin of about IE) characters 
around the text, 

3) On the very first page you should 
put the following: 

Name of the article 

Machine that it is for 

Any extras required - disk, printer 

etc. 

Your name 

Your address 

Your telephone number 

4) The top of every page should have 
the following information on it: 

Abbreviation of the article title 

Your name 

The page number 



For example, suppose you had 
submitted an article on C64 interrupts. 
You should put something like the 
following at the head of the page: 

Interrupis/J.Srmth/l 

5) Please make sure that you do not 
make any additional marks on your 
text especially underlining. 

6} Try and write in clear concise 
English, it does not have to be a work 
of literature but it must be comprehen- 
sible. 

7) On the bottom of each page you 
should put the word MORE if there 
are more pages to the article or ENDS 
if it is the last page. 

H) If possible, enclose a listing of alt 
programs. 

9] Under no circumstances use a 
staple to hold the pages together. Use a 
paperclip instead. 

10) Programs should be included on 
either disk or tape. Make sure that you 
SAVE two copies of every program so 
that we have a better chance of loading 
them if problems occur. 

I I) Programs under 10 lines can be 
included in the text. If your program is 
longer than this you must enclose a 
disk or cassette. 

12) If your article needs Liny artwork 
then supply clear examples of what is 
needed. We don't expect vou to be an 
artist but we do need to see what is 
required. 



13) Photographs, if necessary, must 
be either black and white prints or 
colour slides. We can take shots our- 
selves so don't worry about this too 
much, 

14) Submissions of any length arc 
welcome. If you have alive line routine 
that you think may be of use to 
someone else we welcome it just as 
much as a full blown six part series, 

15) Pay ment varies quite a lot and de- 
pends on quite a number of factors, 
such as complexity of program, 
presentation of program, number of 
magazine pages it takes up etc. Pay- 
ment is general l\ between £10.00 and 
£800.00- 

16) All payments are made in the 
month that the magazine containing 
your article has appeared in print, 

J 7) If we do find your submission 
suitable for inclusion in the magazine 
we will write to you giving the terms of 
publication, the rate of payment and 
an agreement form. Prompt return of 
this form will allow us to use your 
program as soon as possible, 

18) If you want the program return- 
ing to you, should we find it unsuitable 
for publication, then vou should 
enclose a stamped self addressed 
envelope, 

19) The last and most important point 
to make is *get writing 1 , we are wailing 
for your artictes. 
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Figure 1 



CONTROL 



SECTION 



X 



ENTRY KEY 



ENTRY 



Electronic Notebook is an elec- 
tronic implementation of I he 
very popular Personal Organ- 
iser. It provides the means by which 
information can be stored, under a 
key, in a file. It does this by utilising 
database techniques similar to those 
on mainframe computers. 

An Electronic Notebook file can 
be as small or as large as you require, 
up to the maximum size of the disk. 
On the 1541 disk drive this will be 
around 3500 records, but on larger 
disks with a capacity of 1 megabyte 
the number increases to 24000, A 
single Electronic Notebook file 
contains four different record types 
which are used to implement the 
database structure (See Figure I). The 
records form a hierarchical structure 
at which each level holds varying 
degrees of information required by the 
user. The four records are: 



Electronic 
Notebook 

Get yourself organised with this powerful database 

By L> Keighley 



C ONTROL This record holds control 
information about the 
usage of the database. 
This includes details of 
where the first empty 
record is and what the 
access password is. The 
user is not given access to 
this record it is 
maintained by the Elect- 
ronic Notebook program 
alone. 



SECTION This record is the Header 
or Folder under which in- 
formation is to be stored. 
Apart from pointers to 
the next and last Section 
records and pointers to its 
next and last Entry Key 
records, it holds the Title 
of the section and its type. 
The types allowed are 
Labels. Notes and Text. 



ENTRY This record holds the 
KEY key to the information 

that is to be stored below 
it, along with the pointer 
to the first Entry record. 
Pointers are also held to 
the next and last Entry 
Key records, 



ENTRY Each Entry record holds 
up to 35 characters of in- 
formation along with the 
pointer to the next Entry. 
If the information to be 
held is of the Text type 
a seventy character line is 
made up of two 
consecutive Entry 
records. 



The Section records can only be 
accessed by stepping through all those 
present, but the Entry Key records can 
be obtained using the given Key. 

All the records at each lever are 
'owned' by a record at the level above. 
For example, a Section record may be 
designated as 'Addresses' and may 
have below it two address Entry Keys 
for 'Fred' and 'Joan 1 below each of the 
Entry Key records will be any number 
of Entry records that it takes to hold 
all of the address for each person. The 
records held at all levels below Control 
are held in "chains'. 

The program allows maintenance 
of all user information, add /delete/ 
insert, at the lowest three levels with 
the exception of key information, this 
is restricted by password. All the 
'chains 1 are held in sequence of key 
and to change the key requires that 
their position in the chain is altered, 
While the physical position on the disk 
of the record does not change all the 
pointers around its old and new 
positions must be amended. This 
action requires the reading and writing 
of a number of records and therefore 
takes some time. 

The database could be used as a 
diary if each Entry Key within a 
Section called 'Diary' was given the 
date of each day in the year. 

The hardcopy output facilities 
provided by Electronic Notebook are 
Labels, printed in single or two up 
form, Notes, again printed in single 
or two up form and Text printed as 
seventy character lines. 

Access to the facilities of Electronic 
Notebook are from an on-screen 
menu, Functions arc selected by 
keying the appropriate number. Some 
require, two numbers to be keyed, the 
first to select general function and and 
the second to select the specific 
function. 
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Control: 

E First available empty record 
Fl Fnd of file + 1 record 
SJ First Section record 

52 Last Section record 

M Maximum number of records 
Ml Marker Types used 
Pi Password 

Section: 
T$ Title 

53 Next Section 

54 Last Section 
E2 Next Entry 
Ei Last Entry 
TISType 

M2 Marker 

Entry Key: 

E4 Next Entry 

E5 Last Entrv 

KS Key 

Nl Next Entry 
Entry: 

N2 Next Entry 

D$ Data 



Operating Instructions 

1 Load and Run the program 
fi ENOTEBQQK\ a menu will then 
be displayed of all the actions that 
are allowed on the database. 

2 To select an action, with the 
exception of 'Initialise', requires 
that two keys be pressed. The first 
selects the area of the database that 
is to be worked on or the print 
option and second selects the type 
of action. 

3 When entering Text information 
the V cannot be used. This is 
because of the way in which the 
computer takes data in from the 
keyboard. The comma is used to 
indicate the end of input for one 
field and the beginning of input for 
the next. So that, the comma can 
be entered in text the 11 ] * should 
be used. This will result in a comma 



being displayed on the screen and 
printed where necessary, 
*9* must always be selected from the 
menu to end the program this 
ensures that the database is closed 
correctly and the last buffer of 
information is stored on the disk. 
When a new database is set up the 
number of database records 
allowed can be varied from 500 up 
to 3500, Each record has to be 
written to the database and 
therefore this takes some time. The 
database already set up has 2500 
entries and took approximately 10 
minutes to intialise. 
The password when correctly 
entered allows the pointer fields to 
be amended. This can corrupt [he 
database if done incorrectly, hence 
the password. The password for the 
sample database is *CDUCDU\ 



C16 and PLUS/4 PROGRAM 



Head for Home 



Challenge your friends to 

a version of one of the 
World's oldest boardgames 



Head for Home is presented in 
the form of two Basic 
l oaders. These should be 
typed in and saved seperately. If using 
tape make sure that you alter the 
DLOAD at the end of the first 
program to a LOAD instruction, 

Care should be taken when 
entering the program, as some of the 
lines contain machine code. A single 
mistake on entry would cause the 
program not to work, 



Getting Going 

Once the program is up and running, 
you will be asked if you require 
instructions and the number of 
players, Head for Home is designed 
for 2-6 players. 

To start the game, a player needs 
to throw a six on the computer dice. 
The play rotates around the players 
until one scores a six. If no move is 
possible a sound will tell you. Once 
a player throws a six the dice is rolled 
again until a different number is 
thrown. The sum of the dice throws 
becomes the number of positions that 
a player can move, though it costs a 
six to move a man onto the board. 

When a move is required a cursor 
will appear on the screen. The Player 



should press one of the numbers I - 
4, depending on which piece they wish 
to move. The move is only accepted 
if it is legal. If no move can be made, 
press P to pass, 

Pieces move in the same order as 
the die throws. So, if you have two 
sixes and a three and press 2 4 1, pices 
2 and 4 move 6 spaces and piece ] 
moves 3. Entering 2 2 2 would move 
piece 2 15 spaces. 

Each playing piece travels around 
the board once. When it leaves the 
white track and moves onto the last 
5 coloured spaces. The exact number 
must be thrown in order to reach home 
base. 

Thafs all there is to it - have fun! 



YOUR COMMODORE march 1989 



READERS SERVICE 





CCD 
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Software 
for Sale 



If you think that one of our programs looks very interesting, but you can *t 
afford the time to type it in, then our software service will help you out 



I 



fs three o'clock in the mummy. You sit at the corn puter 
keyboard having just finished a marathon typing session 
entering one of the superb pre jgrams from Your Commodarc* 
Your fingers reach (or the keyboard and press the letters R, 
Uand N. You press RETURN, sii back and nothing happens. 

Everyone has probably faced this problem, When it does 
happen it's a matter of spending hours searching through 
ihe program lor am typing mistakes. No matter how long 
you look or how many people help you, you can usually 
guarantee that at least one little bug slips through unnoticed. 

The Your Commodore Software Service makes available 
all of the programs from each issue on both cassette and disk 
at a price of 1*6.00 for disk and £4,00 for cassette. None of the 
documentation for the programs is supplied with the 
software since it is all available in the relevant magazine. 
Should you not have the magazine then back issues are 
available from the following address: 

INFONET LTD, 5 River Park hstate, Herkhamsted, !k-]|s 

IIP4 I ML. 

Tel: (04427) 76661 

Please contact this address for prices and availability. 
The Disk 

Programs on the disk will also be supplied as totally working 
u 1 is ions. i.e. when possible we will not use Basic Loaders 
thus making use of the programs much easier. 
Unfortunately at the moment we cannot duplicate C 16 and 
Plus/4 cassettes. However programs for these machines will 
be available on the disk. 

What programs are available? 

At the top of each article you will find a. si rap containing 
the article type, C64 Program etc, So that you can see which 
programs arc available on which format, you will also find a 
couple of symbol-, after this strap, The symbols have the 
following meaning: 



This symbol means that the program is available on cassette. 



Please Note 

Since the programs supplied on cassette arc total working 
versions of the program, we do not put disk-only programs 
on tape. There is no sense in placing a program that expects 
to be reading from disk on to tape. 

OCTOBER 198S^_ 

SPRITE LIBRARY - In this instalment our sprites take 
on the look of the alphabet (C64) 

SAMPLER 64 - See September \m for details (full 
program on both September and October disks and tapes). 
SET THE ALARM - Use the C64*s in-built dock as an 
alarm, 

JACK IN THE BOX - A handy box utility for Basic and 
machine code programmers (C64), 

FILE EXTENSION Modify your disk directory so that 
you can load all your programs with ease (C64 disk only). 
HI-RES/ MULTI/ COLOUR PLOTTER A selection of 
plot routines for both Basic and machine code programmers 
(C64). 

JOYSTICK CURSOR - Let your joystick emulate the 
cursor keys (C64). 

HI- RES FILL - A superb machine code fill routine for 
all graphics programmers (C64). 

CODE RELOCATION Change your machine code 
programs so that they will run in any area of your C64's 
memory, 

ORDER CODE 
TAPE YCOCT88 £4.00 
DISK YD OCT 88 £6.00 



These programs are available on disk. 



NOVEMBER 1988 

SECRET WRITING — Learn how to conceal messages 
and how to protect your Basic programs (C64), 
PAINLESS WINDOWS — Extend the power of the C12§\ 
WINDOW command. 

UNLOCK HIDDEN 128 POWERS - Use the full keyset 
of your CI 28 in C64 mode. 
WILLIAM TELL - Fight off the Austrian soldiers in this 
great C64 arcade game. 
TALKING COMPUTERS — Use speech synthesisers with 
your C64, 
ORDER CODE 
TAPE YCNOV88 £4.00 
DISK YDNOV88 £6.00 
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DECEMBER 1988 



F-KEY LABELLER - Use your Commodore printer to 
produce a template for your function keys (C64). 
+4 DIRECTORY EDITOR - Rearrange your Plus/4 disk 
directory entries however you like. Available on disk only. 
DOUBLE HEIGHT - Enhance your C64 text displays with 
a double height character set. 

PROGRAM PROTECTION - Protect your latest C64 
masterpiece from prying eyes. 

SPRITE CONTROLLER - Basic sprite manipulation made 
easy. C64. 

GRAPHIC EDITOR - A quick and simple C64 UDG 
editor. 

MASTERING THE RASTER The source code to 
accompany our article on raster interrupts (C64). 
CREATING CHARACTERS Give your Plus/4 and 
Commodore printer a better print quality. Available on 
disk only. 

WILLIAM TELL - See November for details (C64). 

ORDER CODE 
TAPE YCDKC88 £4 M 
DISK YDDEC88£6.0G 



WILLIAM TELL Our popular arcade game for the C64. 
+4 AUTORUN - Improve tape loading on your Plus/ 4 
cassette. Only available on disk. 
MIIMBASE A database for CI 28 owners. 

ORDER CODE 
DISK YDJAN89£6.00 
TAPE YCJANS9 £4.00 



1 EBRLARY 1989 



JANUARY 1989 



TAPE MENU - Add a menu system to your program 
cassettes (C64), 

SONIC EFFECTS - A superb sound editor for the C64, 
F DUMP - Dump your C64 text screens to printer with 
ease. 

DATA LOADER - A simple wav to enter those reams 
of C64 DATA lines. 

SPRITE LIBRARY A collection of birds to vour growing 
library (C64). 

PLAY THE GAME A superb fruit machine programe 
for the Plus/ 4. (Available on disk only). 

ORDER CODE 
DISK YDFEBB9 £6.00 
TAPE YCFEB89 £4.00 



PREFAB SPRITES - A powerful sprite editor for the C64. 
DAZPRO A simple but helpful text processor for the 
C64. Available on disk and cassette but will only store files 
on tape, 

UDG COMPRESSOR - Save on memory when using 
UDG's in your programs. For C64 only. 



Cassettes or disks are available from March 19R6. Please 
ring the editorial office (01-437 0626) for details of these. 



ORDER FORM - PLEASE COMPLETE IN BLOCK CAPITALS 



NAME 


QTY 


TAPE/DJSK 


ORDER CODE 


PRICE 
































MARCH 89 




TAPE (£4.00) 


YCMAR89 




MARCH 89 




DISK (£6.00) 


YDMAR89 




OVERSEAS POST £1 










TOTAL 





NAME 

ADDRESS 

POSTCODE 

i enclose a cheque/postal order for £ made payable to ARGUS SPECIALIST 

PUBLICATIONS LTD. 

All orders should be sent to: YOUR COMMODORE, READERS SERVICES, ARGUS SPECIALIST 
PUBLICATIONS, 9 HALL ROAD, HEMEL HEMPSTEAD, HERTS HP2 7BH. 
Please allow 28 days for delivery. 
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Listings 

Get it right first time with our deluxe program system 

for the C64. 



K 

u may have noticed that our 
listings are free of those horrible little 
black blobs which send you searching 
around the keyboard for a suitable 
graphic symbol. You may also have 
noticed the funny numbers by the side 
of each line of the listing. Fret no more, 
it's all part of our easy entry aid. 

Instead of those nasty graphics and 
rows of countless spaces in PRINT 
statements and strings we use a special 
coding system, The code, or 
mnemonic, is always contained in 
square brackets and you'll soon learn 
to decipher their meanings, 

For example. [SA] would mean 
type in a Shifted A h or an ace of spades 
in layman's terms, and [SA10] would 
mean a row of ten of these symbols, 

[S+2] means hold down the shift 
key and press the plus key twice. It 
doesn't take a great leap of logic to 
realise that [C+2] means exactly the 
same thing except that the Commo- 
dore key (bottom left of the keyboard) 
is held down instead of the shift key. 

If more than two spaces appear in a 
statement then this will be printed as 
[SPC4] or, exceptionally, [SSPC4]. 
Translated into English this means 
press the spacebar four times or in the 
latter case hold the shift key down 
while you do it. 

A string of special characters could 
appear as: 

[CTRL N, DOWN 2, LEFTS, BLUE, 
F3,C3] 

This would be achieved by holding 



down the CTRL key as you press N, 
press the cursor key down twice, the 
cursor left key five times, press the key 
marked BLUE while holdingdown the 
CTRL key, press the F3 key and, 
finally hold the Commodore key down 
while pressing the number two key(C2 
would of course make the computer 
print in brown). 

Always remember that you should 
only have a row of graphics characters 
on your screen with no square brackets 
and no commas, unless something like 
this appears: 
|SS|,[C*| 

In this case the two characters should 
have a comma between them. 

On rare occasions [REV Tj will 
appear in a listing. This is a delete 
symbol and is created by entering the 
line up to this mnemonic. Then type a 
closing quotation mark (SHIFT & 2) 
and delete it. This gets the computer 
out of quotes mode. Hold down CTR L 
and press the number nine key 
(R VSONh type the relevant number of 
reversed T*s and then hold dow r n 
CTRL and press zero (RVSOFF). 
Next type another quotation mark and 
delete it attain. Now finish the line and 
press RETURN. 

A list of these special cases is given 
in the table but remember that only 
one of these mnemonics will appear 
outside of a PRINT string: the symbol 
lor pi. This may appear when its value 
is needed in a calculation so this may 
look something like: 
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:CC=2*[P[]*R: 

Ignore the square brackets and just 
type in a shifted upward pointing 
arrow (ie. the pi symbol). 







PROGRAM; SYNTAX CHECKER 





5 PEI1 5YTAX CHECKER - ERIC DOYLE 



10 BL-10 :LN-?0 : 5*-491 5? 
SO FOR L-0 TD BL:CX-D:F0R D-0 TO 
15 

30 RE*D A: [ F A>25SrH£NFKlNT "NUMB 
ER TO LaRSE^ LN*CL*1D3 :STQP 
40 CX-CX-AiPOKE Sft*L*lB+D>fl.NE)C 
□ 

50 RE^D A: IF AXCX THENPR INT " ERR 

□R IN LIME H ;tN+CL*l0 3 : STOP 

F5C NEXT L:5Y5 49152: NEW 

70 DATA 173,5 , 3, 201, 165,209,31 , 1 

20, 169 , 3, 141 , 3£ , 50B<141 H 33 , £06 , 1 

B-i ■ 

BO DATA 133.7,141,134,3,169,13,3 

£,£10,255,153,54, 14 i ,4,3.155, ieb 

2 

50 DATA 135,141,5,3,98,36,120,16 
3.151, 141.4,3,153, 135,141,5,1366 

100 DATA 3,169,14,141.134,5,141, 
32 , BOB, 169 , G , 14 1 , 33 . £GS , BB , 36 , 15 
95 

110 DATA 3£. 154, IBS, 72, 133,73, 15 
£,??, 16E, 0.155 ,30,133,554.165 .21 
, 1747 

l£0 DfrTft £4, 101, £34,133, £54, 189, 
0,2, 340 , 18, 53, 554 ,133, 354 , £3£ , 19 
3 , 3345 

130 DATA 0, 2, 340, 9, 24, 101 .£54. 13 
3,354, 232 , BOB , £33 , 169,1,141, 134 , 
£134 

140 DATA 3, 195 ,£54, 74 ,74, 74, 74, 3 
£, 156, 133,32,210,355, 1 , 254 , 41 , 
2054 

150 DATA 15,32,156, 15^,33,210.25 
5,163, 13, 3£. £10, 255, 133,13,38, El 
0, 1335 

1B0 DATA 555, 169,7, 141, 134, £, 104 
, 166 , 104 , 1 70 , 104 , 55 , 34 , 105 , 43 , 30 
1,2836 

170 DATA 58,16,1,95,24,105,7,96, 
0.0.0,0,0,0,0,0,403 

by Eric Doyle 



Easy Entry C64 H 



Checksum Program 

The hexadecimal numbers appearing 
in a column to the left of the listing 
should not be typed in with the 
program. These are me rely checksum 
values and are there to help you get 
each line right. Don't worry if you 
don't understand the hexadecimal 
system, as long as you can compare 
two characters on the screen with the 
corresponding two characters in the 
magazine you can use our line 
checking program. 

Type in the Checksum Program, 
make sure that you > ve not made any 
mistakes and save it to tape or disk 



immediately because it will he used 
w ith most of the present and lulu re 
listings appearing in Your 
Commodore. 

At the start of each programming 
session, load Checksum and run it. 
The screen will turn brown with y ellow 
characters and each time you type in a 
line and press the RETURN key a 
number will appear on the screen in 
white. This should be the same as the 
corresponding value in the magazine. 

If the tw r o values don't relate to one 
another, you have not copied the line 
exactly as printed so go back and check 
each character carefully. When you 
find the error simply correct it and 



press RETURN again. 

II you want to turn off the checker 
simply type SYS49I52 and the screen 
will return to the familiar blue colours. 
You can then do whatever it was you 
wanted to do and il thisdoesn t use the 
area where Checksum lies you can go 
back to it with the same SYS 
command. 

No system is foolproof but the 
chances of two errors cancelling one 
Many of the listings are presented in 
lower ease- To turn your computer to 
lower case mode press the 
Commodore key and the SHIFT key 
at the same time. 



Mnemonic 


Symbol 


Keypress 


[RIGHT] 






CRSR left/right 


[LEFT] 






SHIFT & CRSR left/right 


[DOWN] 






CRSR up/down 


[UP] 


1 


I 


SHIFT & CRSR up/down 


[Fl] 


i 


i 

9 


fl key 


|F2| 






SHIFT & fl key 


[F3] 




! 


□ key 


[F4] 






SHIFT & ft key 


[F5] 






f5 key 


[F6| 






SHIFT & f5 key 


. [F7] 
[F8] 






f7 key 

SHIFT & 17 key 


[HOME] 


l 


1 


CLR/HOME 


[CLR] 


s 




SHIFT & CLR/HOME 


[RVSON1 






CTRL & 9 


IRVSOFF] 






CTRL & 0 



ill' 



Mnemonic SvmboJ 

[BLACK I H| 
[WHITE] 
[RED] 
|CYAN| 
[PURPLE] 
[GREEN] 
[BLUE] 
[YELLOW] 
[POUND] 
[LARROW] 
[UPARROW] 
[PI] 
[INST] 
[REV T] 
[Cletter] 
[SIcttcr] 



Keypress 

CTRL & f 

CTRL <& 2 
CTR I. & 3 
CTRL & 4 
CTRL & 5 
CTRL & 6 
CTRL & 7 
CTRL & 8 
E 

t 

SHIFT & ^ 
SHIFT & INST/DEL 
see text 
CBM + letter 
SHIFT + letter 
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LIFESAVER C64 



This liltlc machine code routine will enable 
Basic programs lo be enhanced with flash- 
ing messages etc. It will reverse on and off 
any part of the screen that you desire. 

The routine redirects the IRQ Inter- 
rupt Vector at memory location 788 so your 
Basic program will be Tree do do what you 
want. 

To start REVERSE R, POKE the 
dala into memory then POKE the following 
locations with the values requested: 
POKE 251,L-BYTE (Screen start address) 
POKE 252,HI-BYTE 
POKE 253,NUMBRK OF CHARS 
POKE 254.FLASH RATE 
Then SYS 49152 to start or 
SYS 49196 to switch off. 

The program includes a short demo to show 
how to set the program up. 



REVERSER 1/1 



10 REM **** REVERSER MACHINE CODE**** 

20FORL=49152TO49215;READA:POKEL,A:D=D+A:NEXT 

30 IFDo803 STHENPRINTT) ATA ERROR" ;STOP 

40 DATA 120, 169, 13, 141, 20, 3 ,169 ,192, 141, 21. 3, 88,96, 

173 , 57, 192 

50 DATA 197,254.208, 18, 169,255, 141,57, 192, 160.0, 177, 
251, 73, 128, 145 

60 DATA 23 J, 200, 196, 253, 208, 245. 238, 57, 192, 76, 49, 234, 
J 20, 169, 49, 141 

70 DATA 20, 3, 169, 234. 141, 21, 3, 88. 96, 0. 31, 168, 255, 8, 
21,74 

80 REM **** REVERSER DEMO **** 

90 POKE5 3280,0: POKES 328 1,0:K>KE 646,7 

100 PRINT CHRS(147);:PRINT TAB(l3)"YOUR 

COMMODORE" 

1 10 POKE253, 18:REM * NUMBER OF CHARACTERS TO 
REVERSE * 

120 POKE254^5: REM * FLASH RATE * 

130 A=1035: REM * SCREEN ADDRESS • 

140 POKE251,A AND 255: REM * POKE VALUES FOR 

SCREEN ADDRESS * 

150 POKE252.A/256 

160 SYS 49152: REM * CALL MJC * 

170 GET A$:IFA$=" H THEN 170 

180 SYS 49196: REM * SWITCH OFF MJC * 



By Neil Higgins 



Listings 



William Tell 




7F 10 Bl-455 :LN-50 



:Sft-3l23 



F9 50 FUR L-0 TO BL:CX-0-FQR D« 

□ TO IS 
BB £1 READ A;FGJ<E535aO, A 
9E 55 CX-CK+A;P0KE SA+L*1B+D B A : 

NEXT 

A2 30 HE ADR; IF A-CX THEN40 

15 31 PRINT "ERROR IN LINE" ; LN+C 

L* 10 1 : STOP 
IB 40 NEXT L:5Y537B72 
44 50 DATA 32.31 p 155,35,7, 155,9 

6, 120, 163 , 155, 141,50, 3 P 169,1 

22, 141 , 1503 
OD 60 DATA £1,3,169,0,141 , 166,2 

,141,16, £06,38, 157, 122,85, 35 

, 163, 1555 
1=1 E 70 DATA 14,141,134,5,163,147 

, 35.S10.SSS, 173,25,203,41,54 



7,9, IS, 1B50 
3S BO DATS 141 ,55,505, 155,7. 14E 

T £10,2, 155,0, 141,35,200, 141, 

97,3,1555 
32 50 DATA 141,98,3,133,551,133 

,555,157,56,3, 157,64,3, 157, 7 

2,3, 1663 

40 100 DATA 157,90.3,206,15,54: 

, 163,3, 141,559.5, 164,251, 155 

,71, 155, 5040 
ED 110 DATA 340,36,166,156,555, 

182 , 55 , 1S6 , 170 , 230 , 55 1 , 530 p 5 

55,54, 32,240,5557 
3D ISO DATA 555,155,35,32,210,2 

55, 165, 36, 35,510,255,163,37, 

32,210,555,5361 
DF 130 DATA 168, 35 , 3£, 210, 555 , 7 

6,91, 155, 169,210, 141,45,3, IS 

9.500, 141,2075 
3F 140 DATA 46,3,169,153,141,50 

,3, 159, 100, 141,36,3.96, 173, 1 

7,206,1556 
03 150 DATA 41, 157, 141,17,200, 1 

73 . 2G , £08 ,9,1. 141 , 26 , 20B , 173 

, 14,550, 1733 
01 150 DATA 41,554,141,14,220,9 



6, 173 , 26 , 505 p 141 , 26 , 50B. 41 p 1 

,208,3, 1759 
CA 170 DATA 76,45,534.172,155,5 

,540,3,75,103, 123, 141,57.506 

, 153, 554,2065 
47 150 DATA 141,58,506,135,140, 

23, 209, 140,29,206, 173,59, 3,2 

40,4,506, 194G 
32 190 DATA 57,505,136,140,51,2 

09, 163,0, 141,33,508, 159, 104, 

141, 18,206, 1331 
45 500 DATA 169 , 3 , 141 , 3B , 508 , 1G 

9,5, 141,37.206, 160,7, 165, 14, 
155, 19, 1G67 

43 5X0 DATA 126,153.246,7,155,1 

,153, 39,203, 185,64,3,517, 11, 

155, 176, IS8S 
9D 250 DATA 5,105,5,153,64,3,15 

7, 0,505, 169,60. 157 , 1 , 505 , 502 

,505, 1696 
11 530 OAT A 136, 205, 519, 173,15, 

126, 141 ,248, 7, 159, 0, 141,39,2 

09,173,59,2065 
34 240 DATA 3,508.3,1,24,173,64, 

3 S 105, 2, 141, G4, 3, 144, 57. 165, 

1,1145 
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E7 PSO 11 AT A 141, SB, 3, 141,15,203 
, 173,64,3, 105 ,2, 141 .64,3, 
141,1807 

D3 260 OAT A 0, £06.201, 50, 144,3, 
141,59,3,141,0,206, 153,60,14 
1,1, 1523 

F6 270 DATA 208,238,188,2,75,12 
9 , £34 , 192 . 1 p SOB r 105 , 173 r 53 , 3 
,240,39,2145 
12 2B0 DATA 163,63, 141 ,21,2GB, 1 
41 , 23,203, 141 , 28,206, 141,23, 
BOB, 163,0, 1939 
2D 230 DATA 141,15,208,169,12,1 
41 p 30 t 209, 163, 2, 141,37,208, 1 
60,5, 162,1917 
DB 300 DATA 1 0 , IBS , 55 , 3 26, 153,2 
48, 7,163, 7 , 153,33. 206. I Hf. 
,3,217, 1B47 
B3 310 DATA 59,125,176,5,105,2, 
153,72,3,157,0,208, 153, 112, 1 
57 , 1 , 1505 
E2 320 DATA 208,202,202.136,15, 
213, 163,5, 141,33,208, 141,44, 
20S, 173,0,2111 
43 330 DATA 208,205.53,156,144, 
3 r 141 ,50,3, 23B , 188 , 2 , 153 , 154 
, 141, IB, IB53 
54 340 DATA 209.76,129.234,132, 
2 , 209 , 1 16 , 173 , 60 , 3 , 240 , 100 , 1 
62, 10, 142,2055 
5D 330 DATA 30,200.202,142,37,2 
OB, 152,0, 142, 15,20B,232, 142, 
23,20B. 142,2110 
Bl"^360 DATA 27,208,163,133,141, 
23,200, 163,255, 14 1 , 51 , 20B , 17 
3,51 , 3,240,2246 
1C 370 DATA 3,205,21,208,153,6, 
141,28,206, 162,14, 160,7, 185, 
51, 126, 1695 
61 3B0 DATA 153,249,7,195,43,12 
6, 153,33, 208, 185,80,3,217,27 
, 126, 176. 197E 
E5 330 DATA 3,105,2,153,00,3,15 
7,0, BOB, 185,35, 156,157, 1,200 
,202, 1B27 
42 400 DATA 202 , 138, 16,217, 173, 
0 , 208 , 201 , 254 r 144 , S , 141 , Bl , 3 
, 2CB, 27, 1335 
24 410 DATA 200-239, IBB. 2. 153, 2 
02, 141, 19,200 , 79, 123,234, 163 
,0, 141, 18,2141 
3B 420 DATA 208 , 141 , 188 , 2 * 173 , 6 
1,3,240, 114, 1E9,1 , 141,33,208 
, 169,200, 2059 
CD 430 DATA 141,1,206,162,0,142 
,33,203, 142,23,208,232, 172,5 
3, 3, £00, 1350 
CI 440 DATA 17,142,29,200,202,1 
42,37,208, 153 , ID, 141,36,200, 
169,5, 141,1965 
59 450 DATA 39,208,173,52,3,240 
,12, 173.00, 3,208,7,32, 126,12 
5, 163, 1678 
74 400 DATA 3,209,2,153,1,141,2 
1 ,208, 141 ,23,208, 185,48,3,20 
6,210, 1777 
Ce 470 DATA 2,209,9,163,4,141,2 
10,2,32,37, 125, 141,24B,7, 173 
,57, 1554 

90 490 DATA 3,208,76,24,173,56. 
3, 105, 1 , 144, 10,75.199, 1,141 , 
15, 1202 

7F 430 DATA 208,141,57,3,104,14 

1 ,50,3, 141,0,209, 173,22,208, 

41,7, 1513 
E5 500 DATA 209,33,32,202,125,1 

73, 91,3, 240 , 21, 238, 43, 125,23 

8,50, 1?6, 1931 
21 510 DATA 173,49,126.41,15,24 

0 , 243 , 173 , 52 p 1 26 , 73 , 24 , 141 , 5 

2, 125,173, 1827 
90 520 DATA 22 , 206 , 3 ,.7 , 14 1 , 22 , 5 

08 , 200 , 3 , 209 , 22 , 2DB , 76 ,43,23 

4, 159, 1792 



IF 530 DATA 1,141,15,208,24,169 

, 1, 103,55,3, 201,86, 144, 103,2 

00, 192, 1734 
D7 S40 DATA 3,144,2,160,0,140,5 

3, 3,205,223,2, 159,0,141,55,3 

,1321 

EB 350 DATA 141 , 57 , 3 , 240 , 1B6 , 13 

2,0, 203 , 1 5 , 24 , 1 73 , 48 p 3 , 105 , 1 

,201, 157B 
OB 560 DATA 204,144,2,169,200,1 

53, 40 , 3; 96, 132, 1 , 208 , 14 , 24 , 1 

73,49, 1690 
BF 570 DATA 3,105,1,201,213.144 

, 230 , 163 , 203 , 208 , 234 , 56 , 173 p 

52,3,240p22S9 
B5 580 DATA 15,173,50,3,233,1,3 

01 , 162, 176, 2 r 169, 165, 141,60, 

3,35, 1540 
IP 530 DATA 173,50,3,233,1,201, 

166 , 175,2 p 169, 163.72, 173,39, 

3, 208 P 1637 
BF 600 DATA 10,173,56,3,201,100 

,144,3,141,52, 3, 104.200,222, 

163,0, 1533 
7A 610 DATA 141,28,206,141.-" r : 

08, 1G9, 176, 141,249,7, 109,208 

,141,3,208,2233 
5E 920 DATA 24,173,97,3,240,26, 

169,2, 141, 15,209, 173,96,3,10 

5,4, 1482 

39 630 DATA 201,96, 144, 31, 141,3 

9 P 3 p 163,0, 141 ,62,3,153, 153, 1 

41,50, 1508 
6F 640 DATA 3,35,173,36,3,105,4 

,144, 10,72, 163,2, 141, 16,209, 

141, 1383 

EA B50 DATA 37,3,104,141.06,3,1 
41,5,206,35,153,0, 133, 253, 15 
9,4, 1619 

11 960 DATA 133,254,163,255,133 

,251, 163, 3, 133,252, 152, 10, 16 
0,0, 177,253,5514 
8E 570 DATA 72,200,177,253,145, 

251,200, 132,40,208,247, 104, 1 

45,251,202,48,2735 
14 660 DATA 25,24,159,80,101,25 

3,133,253, 165,254, 105,0, 133, 

254, 153,80, 2L3H 
4C 630 DATA 101,251,133,251,144 

,214,230, 252 , 205 , 210 , 36 , 254 , 

73, 109,131, 159,2616 
BE 700 DATA 187,214,254,191,179 

, 190, 181 , 1B1 , 180,195, 193, 254 

,230, UO. 150, 174,3030 
CE 710 DATA 139, 136, 104, IBB, 155 

T 165, 155, 155, IBB, 190, 190,0,5 

,7,3,3,1832 
IB 720 DATA 3,1,1.191,222,187,1 

BB,183, 130, 175, 176,252,208, 1 

90, 152, 120,2435 
89 730 DATA 74,196,101,181,185, 

1B4, ie5, 1,3, 15, 19,20, 13,25,5 

, 35, 1319 

56 740 DATA 30,26,2,28,35,15,21 
,31 ,0,0,2,4,6,9.10,4.223 

OB 750 DATA 12,18,14,0,6,9,10,1 
2 , 1 9 , 16 , 234 , 234 , 234 , 234 , 234 , 
234, 1519 

IF 760 DATA 0,255,0,255,0,255,0 
,255.0,255,0,255,0,255,0,255 
,2040 

AF 770 DATA 55,66,55,65,66,05,5 
5 , 66 , 66 , 05 , BE , 65 , 56 , 55 , 55 , 66 
t 1049 

Dl 780 DATA 55,56,66,65.95,59,6 
3 , 63 , 63 . 53 , 56 , 55 , 66 , 55 , 66 , 66 
, 1041 

03 730 DATA 55,58,65,63,63,63,5 

6,09,95,65,65,211,211,211 .51 

1,211, 1768 
3D 800 DATA 211,211,211,211,211 

,211,211,211,211,211.211 ,55, 

55, 65,53, 53,2643 
87 910 DATA 63,53,55,66,73,65,7 



3 , 65, 73 , 55 , 55 , 63, 63 , 63, 66, 65 
, 1050 

43 820 DATA 66,05,66,211,32,32, 
32 , 32 , 32 , 32 , 32 , 32 , 32 , 3 2 , 32 , 3 
2,732 

0 830" DATA 32,32,211,65, 55 , 66 , 
63 , 63 , 63 . 63 , 66 , 55 , 74 , 65 , 74 , 5 
5,1132 

19 040 DATA 74,65,55,53,53,63,6 

6 , 66 , 65 , 66 , 65 , 21 1 , 21 1 , 21 1 , 2 1 

1,211 , 1777 
!3 050 DATA 211,211,211,211,211 

,211,211,211 ,211 ,211,211.55, 

66,65.63,63,2643 
IB B60 DATA 63,53,66,65.66,66,9 

5 , 66 , 65 , 55 , 55 , 53 , 33 , 53 , 64 , 65 

, 1034 

'5 870 DATA 65,65,66,211,32,32, 
32,32,32,32, 32, 32 ,32,32,32,3 
5,791 

£3 BBO DATA 32,32,211.65,210,65 
p 93 , 63,63, 63 , 65 , 56 , 65 , £6 , 66 , 
55. 1201 

IE 830 OATR 06,09,65,93,63,53,5 
4,55,55,66,65,511,32, 32.32,3 
2,1051 

LB 900 DATA 32 , 32 , 32 , 32 , 32 , 32 , 3 
2,32, 35, 32,211,55,55,55,63,6 
3,853 

£1 310 DATA 53,53,56,55,73,65,7 
3,65 ,73,210,65,63,63,53,66,6 
3,1201 

ZB 32?- D^TC Bb. % 65, 66,211 , 32,32 : 
32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 3 
2,791 

74 330 DATA 32, 35, 211, 65, 210 : 55 
, 53 , 53 , 53 , 63 , 64 , 65 , 74 , 65 , 74 , 
65, 1274 

C6 940 DATA 74,65,55,53,63,63,6 
4,95,55, 55. 55, 211,32, 32,32,3 
2, 1059 

5E 350 DATA 32,32.32,32,32,35.3 
2 , 32 , 32 , 3 2 , 2 1 1 , 55 , 65 , ,65 , 6 3 , 6 
3,953 

32 350 DATA 63,63,64,65,65,65,6 
6,65,65,66,65,63.63,63,54,65 
, 1031 

DB 370 DATA 65,66,55,211,32,32, 
32,32,32,32,32,32,32, 32 e 32,3 
2,731 

OE 960 DATA 32,32,211,65,210,65 
, 53 , 63 . 63 , 53 , 64 , 96 , 65 , 96 , 65 , 
65, 1253 

25 990 DATA 55,210,55,53,53,63, 
64,66,65,65,66,211,32,32,32, 
32, 1135 

04 1000 DATA 32 , 32 , 32 , 32 , 32 , 32 , 
32.32,32.35,211. 65 , 66 , 65 , 53 , 
63,853 

13 1010 DATA 63,63,64,55,73,65, 
73 , 65 , 73 , 65 , 65 , 63 , 63 , 63 , 65 , 6 
5, 1054 

A5 1020 DATA 66,65,55,211,32,32 
,32,32,32,32,32,35,32,32,32, 
32,791 

63 1030 DATA 32,32,211,65,210,6 
5,53,63,63,63,64.60,74,65,74 
,65 ,1275 

3D 1040 DATA 74,210,63,63,53,53 
,64,55,65,55,56,211 , 32,32,32 
,32, 1203 

OA 1050 DATA 32,32,32,32,32,32, 
32, 32,32, 32,211 ,55,55,65,63, 
222, 1012 

66 1060 DATA 223,160,54,65,66,6 
6,65,66,65,66,65,63,63,63,66 
,55, 123B 

EC 1070 DATA 56 , 55 , 65 , 21 1 , 3^ . 32 
,32,32.32,32,32,32,32.32.32, 
32,732 

B4 1080 DATA 32,32,211,65,210,6 
5,63,221,100, 1 BE, 54, 66, 12B,5 
5,65, 128,1681 

B4 1030 DATA 65,210,65,63,63,63 
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, 64 , 65 , 65 , 55 , 66 , 21 1 , 32 , 32 , 32 

,32,1193 

72 1100 DATA 32 , 32 , 32 , 32 , 32 , 3E , 
32 , 32 p 32 s 3E , E 1 1 , 65 , 66 , E 6 , 63 , 
2E1, 1011 

01 1110 DATA 100,166,64,165,127 
,65,56, 127,65,66. 55, 63,63.63 
,££,55, 1356 

35 11E0 DATA 66,66,65, 211,2:1 , a 

11,211,211,211,211,211,211,2 

11.511,211 ,211,E940 
64 1130 DATA El 1 , 21 1 , 21 1 , 65 , 210 

,65,63,221, 100 , 166, 64 , LBS, 12 

7,S5.6G, 127,2137 
TY H40 DATA 55,55,55,53,53,63, 

54 s 55 , 5B , 66 , 5B p SB , SB , SB , 6B , E 

8, 1053 

6E 1150 DATA 69,58,65.58,65,58, 
66 , 68, 68 ,6B , 6B, 55 , 55 , 65 , 57, 2 
21 ,1240 

50 1150 DATA 1 DO , 166 . 64 . GS , 66 . G 

B , BB . GS , 66 , 2 10 , 65 , G3 , S3 , 53 , 6 

4.55,1319 
CB 1170 DATA 33 , 3E , 40 , 33 . 33 , 40 . 

3E , 33 , 40 J 32 , 40 , 39 , 39 p 40 , 40 , 3 

9,609 

87 1100 DATA 33,40,39,40,39,40, 

39 , E1E , EEO , 16B , 54 , 65, BE , EE5 . 

225,65, 15B5 
BF 1190 DATA 65,55,55,53,63,53, 

54 , 55 , 33 , 3E , 40 B 39 p 39 , 40 , 33 , 3 

3 .BEE 

23 1200 DATA 39, 33, 40 , 33 ,40, 33, 
32,39, 39 , 3E , 40 , 39 , 39 , iC , 39 , 4 
0,515 

EA 1E10 DATA 212, 63, 54, 55,56, EE 

7 , 230 p 55 , 55 a EE , 65 a S3 . S3 , B3 k B 

5,65, 1511 
DC 1220 DfiTA 40,39,40,32,33,32, 

40 , 39 , 33 , 3E , 3E . 33 , 32 . 32 , 35 . 3 

E h 57B 

33 1230 DATA 32,40,39,32,39,40, 
40 , 39 , 32 , 67 p 6 6 , 65 , 55 , 5 5 , 65 , 6 
5,794 

7F 1240 DATA 55 , 210 , 65 a S3 p B3 , 63 
,54,55,32,32,39.32,32,40,32, 
32,930 

AO 1250 DATA 3B , 40 , 39 , 40 , 32 , 39 , 
32,39,3E,3E, 33,3E, 32,39, 32,3 
2,563 

E9 1260 DATA 32,39, 32,39, 3E, 33, 
39, 3E, 33,32, 39, EE4, S3, 63, G4 , 
66,574 

lfl 1270 DATA 40,32,33,32,40,32, 
39 , 32 , 40 , 32 , 3E , 3E , 39 , 35 h 32 , 3 
2,557 

54 1EBQ DATA 39 p 32 , 32 , 33 , 3E , 33 , 
32,32,39,32,32,32,39, 32,39, 3 
2,554 

94 1E90 DATA 32 , 32 > 39 , 3E ,„ E24 , 53 
,66,65,6,15, IB, 3,61 3 4B,20 P 15 
.745 

2C 1300 DATA 57,48.49,59,16,79, 
52, 57 r 49, S3, 50, 43, 9, 44 ,15 a 55 
,745 

3E 1310 DATA 40,48,45,50,52,43, 
5.41 ,58, 14,63,32,32,32,32,32 
,633 

CE 13E0 DATA 32,32,32,32,32,32, 
32 , 32 . 32 , 3E , 32 a 3E . 32 , 32 , 32 , 3 
2,512 

02 1330 DATA 32 , 32 , 32 , 32 , 0 , 255 , 
0, ESS .0,266,0, 255 , 0, E55 , O . ES 
5, 1ESB 

BF 1340 DATA 97,57,37,87.97,97, 
57 37 , 87 , 97 , 97 , 97 a 97 p 37 , 97 , 9 
7, 155E 

00 1350 DATA 97.97.97,97,37,97, 
97 , 97 , 97 , 87 , 97 , 97 , 97 . 97 , 97 , 9 
7, 195E 

35 1360 DATA 37, 37,97, 97, 97, 97, 
97 p 97 , 97, 87 . 97 . 97, 97, 37 , 97 , 9 
7, 155E 



C3 1370 DATA 97.97,97,97,97,97, 
97 , 97 , 97 , 97 , 57 , 97 , 37 , 97 , 97 , 9 
7,155E 

OA 1380 DATA 97,37,97,97,97,97, 
97 , 57 , 94 , 95 , 97 . 97 , 97 . 97 , 97 , 9 
7,1547 

CC 1390 DATA 159,97,94,95,97,97 
,97,97,94,85,85.97,97.97,97, 
97, 160E 

1A 1400 DATA 97,97,97,97,97,97, 
97,87,94,95,97,97,97,97,97,9 
O a lS40 

OC 1410 DATA 100,92,91,97,94,96 

,97,87. 1E1, 90, 100, 100,91 , 95, 

85.90, 1566 
BF 1420 DATA 93,100.100,91.97,9 

7, 94 ,96, 96,97,. 97, 34, 95, 97, 97 

.90, 1530 

11 1430 DATA 100,100,91,97,97.9 

7,90,93, 100, 100, 100, 92 p 100,3 

2 a 91, 97, 1537 
BB 1440 DATA 156,100,100,92,100 

,100,93, 100, 100, 100, 92. 100,9 

l,90 a 100,83, 1507 
55 1460 DATA 100,91,90,100,92,9 

1 ,90,93,100,92, 100,91.97,90, 

93,100, 1510 
OD 1460 DATA 100,100,100,100,92 

, 10D, 100,91, 115, 156, 100. 1DD, 

32,93, 100,47, 1596 
C7 1470 DATA 100,100,100,100,10 

0,47, 100, 100,92, 100,100, 100, 

100, 33,93, 100,1525 
54 14B0 DATA 93.100,100,100,93, 

100, 100, 100 a 100, 100 p 100,100, 

66,85,65, 95, 1526 
46 1450 DATA 115,115,166,100,93 

p 100, 100,57,43,44,44,44,44,2 

9,43,100, 1197 
83 1500 DATA 1DD, 100, 100, 100, 10 

0, lOOplOO, 100, 100, 100 p 100, 93 

, 100, 100, 100, 100, 1593 
5D 1510 DATA 100,100,100,100,09 

,82,03,51, 115, 115, 115, 113, 11 

2,112,41,26, 14B5 
54 1520 DATA 45,46,46,30,45,46, 

42, 122.41, 114, 112,122.41, 122 

,41, 122, 1135 
OA 1530 DATA 122, 41, 1EE, 41,41, 1 

EE, 41. 41, 122,122.41,41 ,63,63 

.94,65, 1172 
BA 1540 DATA 117,117,119,114,32 

,32,39. 122,41,41,41,33.41 ,41 

.41,40,1010 
01 1550 DATA 32.32,32,32,32,32, 

36,32,32,32,32,32,32,32.32,3 

2,512 

4E 156Q DATA 32 a 32 , 32 , 32 , 63 a 53 , 
64,73 a 109, 109,73, 32,32,35.32 
,32 , B42 

9D 157D DATA 33,32,32,32,32,32, 
32, 32, 32, 32,32,32,32, 32,32,3 
2,512 

75 15BD DATA 32,32,32,32,32,32, 
32, 32, 3E, 3E, 32, 32, 63, 63,54, 7 
4,645 

CE 1550 DATA 109 , 109 , 74 , 50 , SI p 6 
0 , 61 , GO , 51 , 50 , 51 , SO. 61 , 60 , 51 
,60,1076 

32 1500 DATA £1,60,61,50,61,60, 
SI ,60,61 ,60,61,60.61,60,61,6 
0,968 

CB 1510 DATA 61.60.61,50,103,63 

,64, E5, 105, 109, 104, EE, 65 ,66, 

56,65, 1167 
2F 1620 DATA 66,65,66, 66,65, 55, 

56 , 55 , ES , 66 , 65 , 55 , 65 , B6 , 66 , 6 

5, 1050 

65 1S30 DATA 56,66,66,55,55,65, 
66 , 55 , 65 , 66 , 65 , 65 , 209 , 63 , 64 , 
123, 1247 

F7 1640 DATA 70,59.104,66,66,65 



,66, 55, 1,2,3,4,5, 6, 7,6,607 
E7 1550 DATA 9,10,11,12,13,14,1 
5, IE, 17, 19, 19.20,21,22,23,24 
,264 

45 1650 DATA 25,26,66,210,209,6 

3, 54, 155,72,71, 104,79,73,79, 

79.79,1430 
FA 1570 DATA 79 , 79 , 73 s 73 . 79 , 79 , 

79 p 79 , 78 , 79 , 79 , 79 , 79 , 79 , 79 , 7 

9,1251 

DD 1550 DATA 79,79,79,79,79,79, 
79,79,78,79, 79, 78,79, 103,5^, 
55, 1E59 

D3 1550 DATA 105,106,107,60,60, 
BO , BO , 80, 60 , BO , BO , GO , BO , 60 , 3 
0,90, 1359 

82 1700 DATA 90,50,50,90,90,80, 
60, BO, 80,80, BO.BD, 80,60,80, 9 

0. 12B0 

E9 1710 DATA GO, BO, BO, SO, SO, 80, 

60,60, 103, 105, 104,56, 119,64, 

94,84, 1399 
84 1720 DATA GS , 84 N 55 , B4 , 64 , 84 , 

54,65, 119,65,54,65, B4, 65, 66, 

65. 1226 

BE 1730 DATA 94,84,54,55,119,65 
,04,55,94,84,55, 119, , ^.5 

4, EE, 1404 

AE 1740 DATA 69,109,104,55,55,6 

6, 126,55, EG, 65, 66, 65, B5, 66, 1 

29,66. 1261 
FD 1750 DATA 66,65,66,66,55,55, 

5S,SS, 1EB, 55,65,66,66, 55, 55, 

GG, 1111 

E4 17G0 DATA 128,26,65,55,209,6 

3,54,73, 71, 109, 104 , EE , E5 , 56 , 

127,65, 1409 
B3 1770 DATA 66.66,65,55,55,56, 

127 , 65 , 65 , SB , 65 , 65 , 55 , B5 , 66 , 

65, 1110 

CO 1780 DATA 157,65,66,55,55,56 

,55,65, 127,65,66,210, 209,63, 

64,74, 1453 
04 1780 DATA 109 , 109 , 1 04 , 5E , 66 , 

55, 1E7, 65 ,65,55,65,66, 66 b 65, 

127,65, 1296 
32 1800 DATA 66,66,65,55,55,56, 

65, 6E, 127,66,55,66, 55, 66, 65, 

66, 1111 

5D 1B10 DATA 127,65,55,56,209,6 

3,64,65, 109, 103. 104,66,65,65 

,66,65, 1374 
49 1820 DATA 66,65,55,55,65,66, 

65, 66, 65 , 55, 6B, 65 , 66 , 65, 55 , 6 

S, 1045 

EB 1830 DATA 55,55,66,65,66,65, 
GS , 65 , 66 , 65 , 5S . 6 5 . 2 09 , 6 3 , 55 , 
55, 1190 

76 1B40 DATA 109,109,104,66,55, 

66,55, 171, 167 p 170 p 65 , 66 , 55 , 5 

5,66,65,1507 
55 1850 DATA 66,66,65,68,65,65, 

56 , 65 , 55 , 55 , 65 , GG ,65,66, 171 , 

E1B, 1306 

IE 19S0 DATA 170,65,65,56,209,6 

3, 66, 55, 105, 103, 113,66,65,66 

,55, 187, 1555 
BD 1870 DATA 187,157,55,55,123, 

1S4 , 65 , 66 , 65 , 65 , 55 , 65 , 66 , 55 , 

65,66, 1406 
11 1550 DATA 65, 65 p 66, 123, 1E4.6 

5, £11,21B,211 ,66,55,65^09,6 
3,65,55, 1749 

FA 1930 DATA 109,109.120,66,65, 
65,66, 197, 187,187,65,65, 1E5, 
126,65,65, 1573 

B9 1900 DATA 66,66,65,66,66,65, 
55, 55,66,66,65.125, 126, 65, El 

1, E1B,14G7 

31 1310 DATA 211,65,55,55,203,6 
3, 55 p 55, 109, 109, 104,66,65,66 
,55, 197, 15B2 

E5 19E0 DATA 187,167,55,55,55,6 
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5 , 65 , EG , 66 , 65 , 55 , 65 , 55 , 6G . 6G 
,66,1295 

E3 1330 DATA E5. EE , 66, 55 , E10 , 65 

,211,210, 211 p 66 , 55 , 65 , 209, E3 

/BE, 65,1777 
68 1940 DATA 105,109,104,65,66, 

6B,EB, 131, 191, 191 p GO s SB, 58,6 

8,68,59, 1575 
F3 1950 DATA 63 , 68 , 56 , E9 , EE , 69 , 

69,68,68,68,69,66,60,50, 191, 

131,1334 

45 19ED DATA 131 ,63,66, £8,66,67 
, 66 , 66 , 0, 255 , 0 , 255, 0, 255 , 27, 
16 h 1470 

4D 1370 DATA 163,0,160,30,153,1 

95, B, 135, 15,250, 160, 14 p 153,6 

4,3, 153 : 1E5B 
"05 1330 DATA 80,3,153,95,3,135, 

IB .544 ,55, 120, 153, 125, 141,24 

,3, 153, 1576 
E9 1330 DATA 137,141,25,3,169,6 

4, 133, 1,BB, 163,6,32,210,355, 

159, 147 p '1741 
30 2000 DATA 32,210,255,32,193, 

143,96, 159,231, 141, 149, S5p 14 

1, 115,62,32,5066 
91 2010 DATA 144,103,32,132,134 

,32, Op 134,32, 145, 135,32, 155, 

135,32, 176, 1563 
DF 2020 DATA 135,33,252,135,32, 

12, 13S,32,35, 135, 32,151, 147, 

32,213, 134, 1644 
CF.2030 DATA 32,51,135,36,120,1 

B9, 139, 141,20,3, 169,106, 141, 

21,3, 168, 1515 
68 2040 DATA 105,141,19,209,32, 

170, 147, 153,0,141, 199,2, 141, 

19.3,141, 1625 
FC 2050 DATA 112,3,56,96,163,24 

,141 ,124,3, 163,75, 141, 125, 3, 

169,34,1539 
A3 2050 DATA 141,122,3,169,72,1 

41, 123,3, 153, 203, 141, 191,2,1 

69,219, 141,2003 
CI 2070 DATA 162,2,169,120,141, 

167, 2 p 165, 19, 141, 172,2, 169, 1 

,141,21, 1617 
□6 2080 DATA 209,169,139,141,0, 

20B, IBS .193, 141, 1 S 20B, 153, 32 

, 141 p 170,2, 2150 
IE 2090 DATA 163,95,141,171,2,1 

69,45,141 ,195,2, 169,75, 141, 1 

96*2, 169, 1853 
36 2100 DATA 29,141,194,2,96,16 

5,16, 141, 197,2, 141 p 163,2, 10, 

141, 137, 1596 
2C 2110 DATA 3,173,30,209,162,4 

,142,246,2, 142,232,2,202, 142 

,230, 2, 1322 
B3 2120 DATA 169,7,141,33,208,1 

41,40,206, 153,0, 141,27,209, 1 

41, 247,2, 1866 
IF 2130 DATA 141,32,203,141,37, 

209,169, 10, 141, 3B, 206,36, 163 

,3, 170, 157, 1928 
E5 2140 DATA 54,3,157,59,3,202, 

16, 247 ( 169,0, 152,5, 157,41,20 

8 P 202, 1684 
CS 2150 DATA 16,250,36,159,0,16 

2,23,157,0,212,202, 15,250, 16 

9, 15 p 141 , 1B7B 
97 2160 DATA 24,212,36,159,206, 

141, 194,2, 1E9, 10, 141, 183, 2, 1 

41,235, 2, 1318 
FE 2170 DATA 163,138,141,235.2, 

169p220 ,141 , 133,3, 163,219, 14 

1,134,3, 159,2246 
10 21GQ QATA 133, 141,52,3, 1B9, 1 

77, 141 ,53,3, 162, 3, 142,63,3,1 

42, 132, 1573 
FD 2190 DATA 3,142,113,3,142,13 

3,2, 142, 190,2, 142,237,2, 142, 

26,209, 1631 



B7 2200 DATA 160,203,152,157,24 

2,2,200,202, 16.249, 152,3, 160 

,213, 152, 157,2435 
67 2210 DATA 238,2,200,202,16,2 

49, 169, 197,141, 135 ,3, 169,200 

, 141 , 136,3,2200 
70 2220 DATA 35,153,9,162,0,157 

,0.216, 157,0,217, 167, 0,219, t 

57,233, 1945 
70 2230 DATA 216,232,209,241,86 

, 169,10, 162,79, 157,243,218,2 

□2, 15,250,35,2502 
31 2240 DATA 169,24,141,131,2,1 

33,253, 163.5, 141, 132,2, 133,2 

54, 163, 112,2030 
75 2250 DATA 133,251,153,72,133 

,252, 160.0, 132, 255,24, 162,17 

,177,251 , 145,2333 
AE 22E0 DATA 253 , IBS, 253 , 105, 40 

. 133 . 253 , 144 , 3 , 230 , 254 , 24 , 23 

0,251,208,2,254b 
35 2270 DATA 230,252,202,16.232 

,230.255, 165,255,201,40, 176, 

14, 1C3, 131 , 2,2570 
90 22B0 DATA 133,253,173,122,2, 

105, 0, 133,264, 144,203,35, 150 

,0.162,33, 2054 
CE 2230 DATA 153,167,157,0,4,15 

7, BO, 4, 157, 160,4, 157,240,4,1 

52, 157, 1753 
OE 2300 DATA 0,216,157,80,216,1 

57, 150,216, 157,240,215,202,1 

6,225, 162,5,2426 
6A 2310 DATA 160,15,24,32,240,2 

56, 152,0, 169, 103, 137,240,6,3 

2,210,256,2060 
02 2320 DATA 232,209,245,162,4, 

163, 162,157,53,4,157,33,4, 15 

7,133,4,1944 
45 2330 DATA 157,54,4,157,104,4 

, 157, 144, 4,205, IG, 225, 123, 10 

0, 162,5. 1664 
IE 2340 DATA 157, 5B, 4 , 157 ,99 , 4, 

157,138,4,202, 16,244, 141,92, 

4, 141, 1E17 
1A 2350 DATA 40,4,141,120,4,141 

,200,4, 141, 109,4, 162, 163, 142 

,100, 4, 1495 
AE 2360 DATA 202,142,101,4,163, 

144,32,210,255,160, 1,162, 1,2 

4,32,240, 1679 
7B 2370 DATA 255,202,183,14,137 
, 240, B , 32, 210, 255 , 232 , 203 , 24 

5, 160,23, 162,2575 
6C 2360 DATA 1,24,32,240,255,20 

2, 1B3,2S, 137,240,6,32,210,25 

5,232,203,2292 
AO 2390 DATA 245,160,1,192,3,24 
,32,240,255, 162,0,199,43, 137 
,240,6, 1999 

23 2400 DATA 32,210,255,232,209 
, 245 , 160 , 23 , 1 52 , 3 , 24 , 32 . 240 , 
255, 162,0,2249 

13 2410 DATA 163,57,137,240,6,3 

2,210,255,232,208,245, 1ED, 1, 

152,5,24,2163 
IB 2420 DATA 32,240,255,162,0,1 

83,71 ,137,240,5, 32,210,255,2 

32,203,245,2514 
134 2 4 30 DATA 150,27,152,5,24,32 

.240,256, 162, 0,199, 67 r 137, 32 

,210,255, 1977 
3C 24^C DATA 240,3,232,209,245, 

1E2, 17,153,8, 157,92,216, 157, 

172,215,202,2436 
17 2450 DATA 16,247.182,4,169,1 

35,206, 157, 127,4,202, 16,247, 

96, 18,83,1909 
57 2460 DATA 67,73,92,63,59,146 

,49,49,49,48,49, 164,0, 164, IB 

, 75, 1152 

24 2470 DATA 69 ,83,83,32,59, 1 4 E 



,164, 164, IB, 56, 0,56, 63,63,94 
,32,1215 

-76 2430 DATA 58,146.32,32,32,32 
,32, 164,0, 164, IB. 75,73, 95,63 
,63,1097 

EE 2430 DATA 56,146,49,55,16,58 
,0,94 ,73,77,69, 32,58, 145,43, 
48, 1019 

IS 2500 DATA 49,43,48,154,164,1 

64,0, 154, 164, 1B4, 18 ,66, 79, 7E 

,84,93, 1535 
FE 2610 DATA 58,145,49,50,48,32 

,0, IB, 25, 37, 73,76, 76,73,55,7 

7 , 356 

5C 2520 DATA 32 , 84 , 53 , 7E , 76 . 1 46 

,0,32, 135,147,32,25, 134,32,1 

52, 144, 1395 
17 2530 DATA 32,166,229,32,151, 

147,32,0, 122, 169,0,141,62,3, 

240, 115, 1E43 
15 2540 DATA 32,168,229,32,135, 

147 , 32 , 55 , 134 , 32 , 204 , 147 , 32 , 

100,134, 173, 1946 
E5 2550 DATA 96.3,208,6,32,57,1 

33 , 32 , 164 , 146 , 173 , 209 , 2 , 240 , 

3,32,1552 
DF 2560 DATA 30,140,173,206,2,2 

40, 3, 32, 114, 139 p 173, 19,3,209 

,55,173, 1710 
ID 2570 DATA 221,2,208,246,32,1 

91, 139, 173, 112,3,240,211, 173 

, 172, 2,209.2332 
□F 2590 DATA 205,173,157,2,240, 

4.201 ,240,208, 197,32, 195, 147 

,32,56.139,2238 
03 2590 DATA 32,162,144,32,0,15 

0, 169, 147,32,210,255, 32, 151, 

147,32, 145,1850 
50 2600 DATA 135,32,103,142,76, 

3, 136,32, 102, 138,32,195, 147, 

32, 162, 144,1513 
SF 2610 DATA 32,100,142,173,0,2 

20,41, 15.240,37,173,223, 2,20 

8,244, 173,2030 
47 2520 DATA 62,3.73,1,141,52,3 

,208,3,76, 125, 137, 153,48, 160 

,4, 1275 

58 2530 DATA 153,153,205,135,15 

,250,32, 162, 144,32,41, 143,76 

,3, 136.32, 1723 
83 2640 DATA 162,144,32,151,147 

, 76. 144,137, 152,4, 199,47,4,1 

57,0,205, 1751 
C7 2650 DATA 139,127,4,157,5,20 

5, 189,207,4, 157, 12,205,202, 1 

6,235, 152,2077 
88 2660 DATA 1,163,156,4,157,16 

.205,202, 16,247,162.2, 1B9, 23 

6,4, 157, 1943 
6E 2B70 DATA 19,205,202,16,247, 

35, 1E2,4, 189, 127,4, 157, 115,3 

,2G?, :5, 175.: 
09 25B0 DATA 247,35,152,0,142,2 

06.2,142, 141,3, 142,142,3,232 

, 142, 143, 1945 
99 2630 DATA 3,232,55,199,236,4 

, 253 , 141 , 3 , 201 , 4B , 17E, 2 , 105, 

10, 157. 1815 
7E 2700 DATA 23E , 4 , 202 , 16 , 23B , 2 

32, 142, 11.212, 142,13,212, IBS 
9 141 12 1 991 
F3 2710 DATA '212 , 169, 3, 141 r 8, 21 

2, 169,65, 141 ,11,212, 162, 1 ,14 

2, 10,212, 1B70 
3D 2720 DATA 232,183,235,4,201, 

43, 209,6,202,16,245, 141,247, 

2, 36, 173,2247 
DE 2730 DATA 199,2,209,56,174,1 

57 , 2 , 224 . 120 , 20B , 52 , 172 , 1 72 , 

2,240, 18,2017 
CB 2740 DATA 1 32 , 1 9 , 24D , 2B , 153 . 

100,141, 102,4, 141, 103,4, 141, 

39,4,141,1628 
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D£ 2750 DATA 99,4,169,172,141,6 
0,4, 169, 173. 141 ,61 ,4, 13E,C,E 
40, 15, 1644 

93 2760 DATA 153,174,141,140,4, 

lea, i7s 3 i4i a 141,4, iae s 16,240 
, 13,56, 165. laee 

Dl £770 DATA 100,141,140,4,141, 

141,4,224, 120,240,22, 169, 100 

p 141 ,50,4, 1751 
D£ 2780 DATA 141,51,4, 224 , 0 , EOS 

,10, 169, 100, 141. IDE, 4, 141, 10 

3,4, £05, 1620 
Fl £750 DATA S3, 163, 167, 141, 102 

, 4, 169, 164, 141, 103,4, ££4, £40 

,209,9, 165,2037 
A3 £900 DATA 100,141,98,4,141,9 

3,4,55, 169, 163, 14 1 , 96 s 4 „ 1 63 , 

1B7, 141 , 1735 
CF £910 DATA 59,4,96, 173, 30, 209 

, 141. 130, 3, 41 , 1 ,808,9,169,5, 

45, 1359 

D4 2SE£C- DATA 130 . 3 , £40 , 81 , EDS , B 
0, 155, 155. 141. £46, 7, 141,56,3 
, 141,234,2040 
EE 2930 DATA 2 , 1 55 , 5 , 14 1 , 5 , 212 , 
141,6,212,96. 199,263, 45, El, 2 
05, 141. 1B30 
F5 2840 DATA 21,208,169,0,141,6 
6,2, 141,204.2, 141, £05, E, 141. 
BE, 3, 1523 
EF 2850 OATA 138,74,166,163,219 
, 153,248,7. 157,96,3, 141,203, 

2, 173.30, 199? 
3E 2860 DATA 209 , 56, IBS, 6, 173, 2 

15, 2, 240, £, EOE, 202, 183,58, 11 

5, 45, El, 1931 
39 2870 DATA 209,240,13,199,35, 

3,209,9, 189, 56, 112.45, 130,3. 

209,7, 1715 
24 2680 DATA ^32, 235, 224 11 209 

,229,96, 173,249,7,201. 199,24 

0,29, 173. IB, 2621 
95 2890 DATA 2 08 ,51, 56, HE ,208, 

224, 56,173,2,205,233,5,221,0 

,205, 176,2154 
AC 2900 DATA 223, 106 , 15 , SSI . 0 t £ 

OB, 176, 146.144,214. 173,16,20 

8, 61, SB. 112,2075 
C7 £310 DATA 208.31,155,2,45,16 
, 2C9 , £0B, 199. 56 , 173, 2 , 209 , £3 

3,9,221, 1597 
D5 5920 DATA 0,205.176,188,105 

16,144,2,175,220,221,0,509,1 

44. 177,176. £161 
5E 2930 DATA 213,24,169,2,45,16 
, 505,240, 12, 173,2, EDS, 105,8, 

221 ,0, 1546 
4E 2340 DATA £09,144.157,176,19 

3,173,2, 203, 105.8, 144,146 , 17 

6,240, 155,0.2251 
£3 2950 DATA 141,205,2,141,141, 

3, 141, 142,3,141, 143,3, 155,2, 

141,144, 1665 
C5 23S0 DATA 3,162,5,142,145,3, 

502,24, 189,47,4, 125. 141,3,20 

1,55,1454 
OE 2570 OATA 144.2,233,10,157,4 

7,4,202, 15 ,239, £32, 135, 127,4 

,221,47, 1973 
2E 2990 OATA 4,240,4,176,7,144, 

6,232,224, 4,208,233, BE, 173,1 

31,4, 1992 
30 2990 DATA 105,5,201,59,144,2 

,233, 10, 141 , 131 ,4, 173, 130,4, 

105,2, 1446 
6C 3000 OATA 201,56,144,2,233,1 

0, 141, 130,4, 162,2, 169, 127,4, 

105.0p.lSlE 
BE 3010 DATA 201,58,144,2,233,1 

0, 157, 127,4,202. 16,239,55,32 

, 151, 147, 1B19 
£2 3020 DATA 169.147,32,210,255 

,32, 144,103,32,35, 135, 32,213 



, 144, 32, 147, 1962 
OF 3030 DATA 146, 162 , 13 , 1H2 . 249 

,7.232, 142,245,7,232, 142,250 

,7, 153, 192,5340 
21 3040 DATA 141,4,205,152,164, 

141,2,208,169, 117.141 ,3,205, 

141 ,5,208,2049 

62 3050 DATA 169,7,141,21,509,1 
62,0,142,63,3, 142, 16,208, 14£ 
,33,20B, 1671 

12 3050 DATA 142,40,208,142,41, 

209 , 142 , 29 , 2QB , 142 , 32 , 209 , 15 

3,3, 141,33. 1932 
79 3070 DATA 208,32,147,135.162 

, 39 , 169 , 14 . 157 , 144 , 21 7 . 202 , 1 

6,250, 162, 120,2173 
CO 30Q0 DATA 153,13,157,223,217 

,202,200,250, 162,25, 169,1, IS 

7,232,217,202,2504 
61 3090 DATA 16 , 250, 1E9, 15 , 141 , 

95,215. 141 , 124,213, 163,12, 14 

1, 100,215, 141,2161 
94 3100 DATA 139,213,165,0,185, 

16,130,157,0,4,183,16,131,15 

7,0,5,1514 
9C 3110 DATA 189,16,132,157,0.6 

, 1H9 , £48 , 132 , 157 , 232 , 6 , 232 ', 2 

08,229, 159,2302 
11 3120 DATA 75,141, 123,5, 141 r l 

27. 5, 153, 4S, 141, 124,5, 141, 12 

5,5, 141, 1513 
AE 3130 DATA 126,5, 159.0, 133,2, 

141,593,207,32,204,147,32 18 

8, 144, 169, 1952 
75 3140 DATA 0,141,245,217,173, 

0,220,41, 15, 206,245, 165 , 3 , 20 

8,245, 32 r 2163 
65 3150 DATA 162,144,163,209,13 

3 , 253 , 169 , E07 , 133 , E54 r 162 , E5 

,160,9,13B,42,2371 
9A 3160 DATA 25,185,112,55,209, 

293,240,245,202,49, 15, 5B, 165 

,253,233,8,2306 

63 3170 DATA 133,253, 176,232, 19 
9,254,160,7,208,231, 138, 1B9 , 
135,144, 164,2.2625 

72 31 BD DATA 153,150,206,32,15, 

142,155, 15, 141,24,212, 169, 10 

0, 141,254,207, 2130 
AA 3190 OATA 24,173,245,217,72, 

105 , 1 , 41 , 7 , 1 41 , 245 , 217 . 104 , 7 

3,32, 141, 1535 
Dl 32C0 DATA 1,212,206,253,207, 

208, 233 , 206 , E54 , EQ7 , 2C6 , E29 

160,7,162,0,2752 
55 3210 DATA 1 B9 , 1 1 E , 55,72, IBS , 

113,56,157,112,55,232,224,7, 

508,245, 104,2132 
55 3220 DATA 157,112,56,32,34,1 

42, 169, 15, 141,254,207,206,25 

3,207,2O8,25l,244S 
05 3230 DATA 206 , 554 , 207 , 5CH , 24 

5,155,42,42.42,42.141,1,212, 

136, 16,206,2153 
Al 3240 DATA 155,192,141,0,208, 

165, 137, 141,1,209,32, 194, 145 

,230.2, 165,5134 

EA 3250 DATA 5,201,3,2^0,5,32 1 

B9, 144,79,73, 141,32,235, 144, 
95, 169, 1755 

D6 3260 DATA 0,141,4,212,163,10 

, 141,5,212, 141,6,215. 155, 17. 

141,4, 1594 
4E 3270 OATA 212,35,169,16,141, 

4, 212, 165 , 15 „ 141 , 5, 212, 155 , 1 

3, 141,6, 1721 
3E 3250 DATA 212,169,21,141,1,2 

12, 169, 17, 141,4,212,95, 165, D 

, 141 ,4, 1709 
F6 3250 DATA 2 IE , 169, 6 , 141 , 5, El 

2, 141,6,212,159, 17, 141,4,212 

,96, 159, 1912 
FD 3300 DATA 32,141,11,212.169, 



15,141,12,212,169.13,141,13, 
212, 169, 33, 1695 
4£ 3310 OATA 141,11,212,96,32,1 
23,142,32,135,142,176,11,32, 
141, 140,32, 1598 

93 3320 DATA 155,142,169,0,141, 
21,209,32,41, 143,95, 160,4,15 
5,47,4, 1549 

BB 3330 DATA 153,159,205,136,16 

,247,96, 160,0, 195,5,206,217, 

159,206,240,2335 
4E 3340 DATA 3,175,7,96,200,192 

,5,209,240,56, 96, 155, 135, 133 

,253, 165,2139 
EA 3350 DATA 205,133,264,150,0, 

177 . 253 , 21 7 , 159 , 206 , 240 , 4 , 17 

6,0, 144, 15,2356 
Dl 3360 DATA 200,192,5,205,240, 

56,155,253,233,14,133,253,17 ; 

6,259, 196,254,2803 
17 3370 DATA 76,163,142,55,155, 

253, 233,9, 141 , 141 , 3 , 165, 254 , 

233, D, 141,2175 
AO 33BD OATA 142,3,163,14,133,2 

51 , 159,206, 133, 255, 165,0, 133 

,253, 155,206, 2402 
AA 3350 DATA 133,254,150,13,177 

p 251 , 145 , 253 , 1 36 , 15 , 249 , 165 , 

253,205,141 ,3,2554 
13 3400 DATA 144,7,155,254,205, 

142,3,240,27,24,155,551,105, 

14, 133,251,2130 

94 3410 DATA 165,252,105,0,133, 
252 , 165, 253, 105, 14, 133 , 253 „ 1 
65,254, 105,0,2354 

BE 3420 DATA 133,254,144.206,17 

3.141,3,133,253,173,142,3,13 

3, 254, 160, 13 r 2319 
1A 343D DATA 195,150,206,145,25 

3, 136, 16,240,96,32,195, 147, 1 

59, 147,32,210,2367 
CI 3440 DATA 255,32,213,147,32 

151 , 147 , 32 , 145 , 135 , 162 , 1 , 142 

,52,3,502, 1851 
9F 3450 OATA 169,128,126,157 O 

4,199,128,127,157.0,5,185,12 

9, 128, 157, 1812 
91 3460 DATA 0.6,193,200.126,15 

7,72,5,232,208,229,169,5,141 i 

, 35.20B, 1985 

C5 3470 OATA 163,9,141,33,208,2 

32, 142,34,208, 142,134,2.232, 

160,4,24, 1874 
31 3490 DATA 32,240,255,160,0,1 

85,40,144,240,6,32,210,255,2 

00,208,245,2452 
IF 3450 DATA 1 55 , 1£F , 1 33 , 253 , 16 

9,206,133,254,163,5,133,255, 

1G5.4, 150,4,2335 
29 3500 DATA £4,32,240,255,150, I 

0,177, 253 , 32 ,210, 255 , 200 , 152 

, 14,206,246,2498 
D5 3510 DATA 199,255,16,15,169, 

2, 141, 229,2, 3E, 230, 145, 32, 20 

4, 147,32, 1B5D 
57 3520 DATA 99,147,95,55,165,2 

53,233, 14, 133,253, 176,2,138, 

254.532,208,2519 
49 3530 DATA 205,163,45,160,140 , 

, 153 , 255 , £05 , 136 , 208, 250 , IBS , 

5 0, 133,253,159,2650 
A4 3540 DATA 206,133,254.162,0, ! 

160,0,189,56,144,145,253,232 

,200, 192,3,2325 
FB 3550 DATA 208,245,224,30,176 

. 14, 165,253, 105, 14, 133,253,1 

65,254, 105,0,2344 
EE 35GD DATA 133 , 264 , 144 , 22S , 16 I 

9.9,133,253,169,205,133,254, 

152,0, 160,0,2404 
15 3570 DATA 1 B5 , 86 , 144 , 145 , 253 

.235,200,192,5,208,245,224,5 

0, 176, 14, 165,2526 
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86 3580 DATA 253,105,14,133,253 
, 155,254, 105, 0,133,254, 144, E 
25, 153,45, ISO ,241c 
3D 353C DATA 5,1^3,153,205,136, 
IS .250,35, 5 ,34,79, BO, 32, 84 ,G 
9,78, 1526 
A2 3600 DATA 35,83,57*79,53,53, 
53 , 0 , 53 , 87 p 75 , 55 , 87 , 76 . 68 p 67 
, 1112 

55 3510 DATA 76,68,87,76,59,37, 
76 , 58 , 87 p 7B , 55 , 87 s 75 , 66 , 67 , 7 
5.1231. ■ 
AS 3620 DATA 58,87,75,66,87,78, 
4B , 48 p 45 , 53 , 48 , 48 , 50 , 50 , 48 , 6 
3,357 

AS 3530 DATA 48,50,52,53,48,46, 
51 , 54 , 46 , 48 , 48 , 51 , SG , 50 . 53 , 4 
8,805 

5E 3S40 DATA 52, 48, S5, ^8,43, 52, 
51 ,49,48,48,53,53,48,48,48,5 
3,802 

35 3650 DATA 55,59,53,46,54,50, 
48 , 48 , 55 , 55 , 57 , 56 , S3 , 70 , 71 . 7 
2,353 

8F 3550 DATA 73,74,75,75,77,78, 
79 , 50 , 51 , 62 , 53 , 64 , 85 . 56 , 57 , 3 

|Z| | U L.i £J 

IF 3570 DATA 83 , 3D , 120 , 166 , 49 , 1 

41,20,3, 169,234, 141,21, 3, 173 

, 14,220, IE55 
ID 3550 DAT* 8,1,141,14,220,153 
,.^,240, 141,26,208,83,99, 120, 15 

9,547, 141,2030 
48 3690 DATA 20,3,159.144,141,2 

1,3, 169, 152, 141 , 10,206, 32, 17 

0, 147,169, 1707 
PC 3700 DATA 0,133,3,38,95,150, 

21B, 155,255,55, 153 , 255 , 205 , 1 

39,208.247,2336 
5F 3710 DATA 160,7,153,0,153,0, 

56, 136, 19,250,96, 150,216, 185 

,255, 205,2055 
HO 3720 DATA 153,255,55,136,208 

,247,98, 173,25,208, 141,25,20 

6. 41 , 1 , 203,2180 
CF 3730 DATA 3,76,43,234,159.15 

2, 141, 18,208,173, 17,208,41, 1 

27, 141, 17,1774 
OC 3740 DATA 203 , 165 , 3 , £40 , 7 , 17 

3,259,207,240, 17,203, 101, 173 
,0,220,41,825a 
7A 3750 DATA 15,73,15,201.4,240 
,90,201 ,8,208,83,182,7. ISO, 8 
,56, 1550 

FD 3750 DATA 41,128,240,2,163,1 
, 157,247,207,202,15.241 , 150, 
0, 140,255,2206 
DB 3770 DATA 207,185,6,56,10,13 
3,255, 185, 15,56, IS, 2, 230,259 
, 165,255,2034 
43 3780 DATA 153,6,53,200,132,2 
08,203, r?33. 152, 7, 183,247,207 
,23,208,55,2353 
8B 3790 DATA 157 , 208 , 55 , 202 , 16 , 
244,24, 155,3, 1 05 , 1 , 41 , 7 , 72 , 1 
09, 1, 1411 
A3 3800 DATA 212,141.1,212,104, 
133,3, 201 , 7 , 208 , 3 , 32 , 34 , 142 , 
75,43, 1558 
7D 3610 DATA 234,152,7,142,255, 
207, 189,208, 55,41, 1,240,2, IS 
9 ,128, 157,2138 
EE 3520 DATA 247,207,202,16,241 
, 150,205, 155,7,55,74, 133,255 
, 165,255, 55,2485 
60 3S30 DATA 41,1, 240 , 6 , 1SE. , 255 
,9, 128.203,2, 165,255, 153, 7,5 
6, 136, 1527 
98 3540 DATA 208,223,152,7.153, 
247,207,29,8,56, 157,6,55,202 
, 16,244,2025 
F4 3850 DATA 46,164,150,0,182,0 
, 189, 112,55. 153,64,3, 200,200 



,200,232, 1943 
13 3860 DATA 224,8,144,242,159, 
9, 141,253,207, 173, 18,208,206 
,251,205, 253,2710 
19 3570 DATA 207,205,245,173,1, 
208,72, 141,1 ,212,32,60, 142, 1 
04,55,233,2096 
BE 3850 DATA 1,141,1,208,201,11 
7,208,2SO, 173,53, 3,209,30, 15 
2.52, 163,1987 
EO 3890 DATA 64,3,157,128,3,202 
, 15,247, 162,62, 155,0, 157, 51, 
3,202, 1533 
37 3900 DATA 16,250,153,0,141,4 
,212,238,63,3,96, 201,2, 175,1 
3, 152, 1745 
G3 3310 DATA 52,189,54,3,157,19 
2, 3, 202 , 16, 247 . 48, 220, 24 ; 173 
,0,203, 130B 
14 3920 DATA 105,8,141,0,208,15 
3,5, 141,253,207, 173, 13,208,2 
08,251 ,206,2301 
52 3930 DATA 253,207,208,246.23 
6,33, 206 , 233 , 40 , 208 , 238 ,41,2 
08, 206,2,206, 2786 
2D 3540 DATA 206,3,208,24,173,0 
,206,105, 1, 144, 10,72, 173, 18. 
206,5, 1550 
F8 3850 DATA 1,141,15,208,104,1 
41,0,208,206, 1,209.55, 173,5, 
206,233, 1303 
SF 3960 DATA 1,201,40,144,157,1 
41,9,208,233,40, 141, 1,212, 16 
9,0,141, 1634 
FB 3570 DATA 4,212,153,6,141,5, 
212, 158,10, 141.5,212, 163, 123 
, 141, 4, 1730 
60 3980 DATA 212,208,152,162,52 
,168,0, 157 , 54, 3, 157, 128,3,15 
7, 132, 3, 1838 
A5 3390 DATA 202,16,244,85,173, 
172 , 2 , 240 , 60 , 153 , 32 , 205 , 110 , 
5,240,53,2020 
93 4000 DATA 172,1,209,182,173, 
175,46, 174,157,2,224,3, 175,5 
, 141 , 116, 1975 
05 4010 DATA 82,208,7,224,237,1 
44,30, 141 ,146,65,141, 110,6,3 
2,79, 142, 1796 
FB 4020 DATA 152,0,153,235,205, 
75,4,209,4,232,142, 112,3, 157 
,75,4,1730 
7E 4030 DATA 169,180,141,224,2. 
55, 150,7, 140,134.2, 162,33, 16 
9, 32, 157, 1814 
A3 4040 QATA 72,7.152,157,72,21 
5,202, 16,244,232, 142, 134,2, 1 
52, 113, 153,2101 
22 4050 DATA 100,157,112,7,202, 
16 , 250, 152 ,21 , 160, 10, 24 , 32 , 2 
40, 255, 163, 1317 
80 4QGD DATA 7,141,134,2,152,0, 
188, 131, 147,240,6,32, 210.255 
, 232,208, 2035 
EG 4070 DATA 245,95,173.25,206, 
141,25.208,41 ,1,240,52. 169,2 
24, 141, 18.2007 
44 4060 DATA 205,173,17,208,41, 
127,141, 17, 208, 152, p, 173,72, 
7,72, 183, 1815 
8A 4090 DATA 73,7,157,72,7,232, 
224,40,203,245, 104 , 141 , 1 1 1 p 7 
.205,253,2087 
OF 4100 DATA 207,208,13,206,254 
,207,206,8, 153, 3, 141,254,207 
P 2C6 ,229,2.2522 
3F 4110 DATA 76.49,234,120,169, 
34, 141 ,20,3, 159, 147,141.21,3 
,163,224, 1720 
72 4120 DATA 141,18,206,141,253 
,207, 169.3, 141 ,254.207,32,21 
3,147,32, 170,2336 
EH 4130 DATA 147,68,96,60,82,59 



,83,83,32,70,73,82,69,32,64, 
79,1249 

3A 4140 DATA 32,83,84,65,82,84, 

0, 155,31 , 141,24,208, 173, 17,2 

05 .. 3, 1410 
7F 4X50 DATA 27,141,17,208,158, 

216, 141,22,208,35, 173, 17,203 

,41 , 127,141, 1952 
5B 4160 DATA 17,208,173,25,208, 

3,1,141,26,208, 173, 14,220,41 

,254.141 , 1860 
7D 4170 DATA 14,220,96,173,17,2 

08,41 ,239,141, 17, 208,96.173, 

17,208,8, 1977 
F7 4130 DATA 16,141,17,205,95,1 

69,0, 141,21,208, 141 ,23,203, 1 

41,27, 208, 1755 
75 4190 DATA 141,23,203,162,15, 

157,0,208,202, 16,250,85,0,0, 

0,0,1485 

E2 4200 DATA 169,0,133,280,165, 

122,133,251, 169,0. 133, 174, 13 

3,193, 153.122,2320 
12 4210 DATA 133.175,133,134,15 

9,240,133,252, 163. 147, 133,25 

3, 160,0, 177,250,2713 
F7 4220 DATA 145,174,230,250,20 

8,2,230,251 , 230, 174,208,2,23 

0, 175,165,250,2324 
73 4230 DATA 137,252,208,234,16 

5,251, 197.253,200,223, 153,13 

3, 133, 107, 163, 143, 3138 
47 42^0 DATA 133,188,153,3,133, 

183, 169, 0, 133 , IBS , 160 , 0 , 189 , 

31,148,240, 2120 
FO 4250 DATA 6,32,210,255,200,2 

08, 245 , 32, 207 , 259, 240, 251 , 20 

1,49,240,4, 2635 
ED 4260 DATA 201 , 55 , 4B , 230 , 41 , 1 

5, 133,186,76,234,245, 147,17, 

17,73,76, 1787 
FO 4270 DATA 60,85,84.32,68,69, 

65,73,57,69, 32 , 78 , 89 , 77 , 55 , 5 
3, 1120 

F8 4280 DATA 82,13,17,57,65,63, 
61,48,32,47, 32,68,73,33,75,6 
1,303 

07 4280 DATA 32,56,32.79,32,32, 
57,58,45, 32,0,87,84,53,0,0,7 

29 

OC 4300 DATA 0,0,0,0,0,0,0,0,0, 
0 , 0 , 255 , 255 , 255 ,255,0, 1O20 
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10 BL-372 :LN-50 : SA-34Q4 
3 

20 FOR L-0 TD BLrCX-0;FOH D- 
0 TO 15 

21 READ A: POKE 5 3290 , A 

22 CX-CX+A:PDKE 5A+L* 1 6*0 , A: 
NEXT 

30 REALA: IF A-CX THEN 40 

31 PRINT "ERROR EN LINE" ; LN-K 
L*10!> : 5TCP 

40 NEXT L:5Y533B24 
50 DATA 32,185,147.32,35,151 
,32.35, 135,32,215, 152,32, 184 
, 160, 169, 1759 

50 DATA 80,32,207,160,32,204 
,147,32, 153, 160,173,137,3,24 
0,251,32,2058 

70 DATA 99,173,173,205,2,240 
,3,35,235, 158, 173,207,2,240, 
6, 32, 1331 

90 DATA 140,157,32,57,168,17 
3,203,2,240,9.32, 116,167, 32, 
108,163, 1832 

30 DATA 32,154,163,173,5:6,2 
,240,3, 32, 164, 163, 173,221,2, 
203,25, 1934 
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BE ICC DATA 173,202,2,240,15,32 

s 209 . 179,32, 165, 144,32,140, 1 

50, 159, 1 , 1691 
EE 110 DATA 1^1,221,2,95, 32 , B . L 

74,76,25, 160,35,140,160,32.1 

EE , 144 j 1606 
32 120 DATA 163,1,141,21,208,17 

3 , 1 B B 20B ,203.251, 238 p 33 , BOB , 

538,33,508,5365 
Al 130 DATA 32,548,108,539,1,20 

B , BOS , 237 , 32 , 0 . 3E , SB , l&E , 4 , 1 

89,8, 1907 
F5 140 DATA 4,197,159,506,169,4 

8,4, 157. 115 , 3, 202 . 15, 241 , 95 p 

ISO, 159, 1999 
30 150 DATA 48,141,16,206,169,5 

4. 141,20,3. 159,163.141.21,3, 

169,0,1468 
E7 150 DATA 141,156.2,32,170,14 

7,98,36, 165,63, 169 , 0 , 157 , 216 

,34,50^, 1B57 
4B 170 DATA 15,250,35,152,63.18 

9,54,35, 157,516,34,505, 15,24 

7 , 36 , 141 , 1944 
39 1B0 DATA 154,30,141,174,30,1 

41 , 194 , 30 , 141 . 214. 30. 141 , 234 

,30, 141,554,5079 
CD 190 DATA 30, 141 , 15, 31.141,39 

,31 ,141,58,31, 141,79,31,141, 

SB, 31 , 1150 
3D 200 DATA 141,113,31.141,135, 

31 ,141,158,31, 141, 179,31. 141 
,198,31,141, 1781 
SB 210 DATA 518,31,141,530,31,9 

6, 165, 3S S 153,30, 221,24.5,203 
,5, 153, 1547 
E5 220 DATA 75 , 157 p 54 , S , 205 , 16 , 

341 p 96, 160, 13, 165,3, 140, 35.2 

08, 142, 1555 
F8 230 DATA 34 , EOB F 3B , 159, 147, 3 

2,210,255,32, 105. 175,35,54. 1 

Bl, 159, 13, 1998 
85 540 DATA 32,147,135,153,24,1 

41 ,54,200, 153,200, 141,lSl t 2, 

133,253, 153,213B 
EB 250 DATA 4,141,195,2,133,254 
, 173, 167, 2, 240, 43,152, 0,142, 
157,2.1623 
92 550 DATA 163,244,141,122,3,1 

69,28, 141, 123, 3, 153, 0, 141, 12 

4,3,169,1749 

56 270 DATA 35,141,125,3,169,6, 
133, 251 , 153 , 23 , 133 , 252 , 163, 5 
OB, 141 , 163.2152 

D3 290 DATA 5,9,7,141,187,5,141 

, 52 , 200 , BOB , 44 , 152 , 202 , 142 , 1 

67, 2, 1645 
DD 230 DATA 169,44,141,155,3,16 

8, 13, 141, 133,3, 163,56,141,12 

4, 3,153, 1590 

57 300 DATA 16,141,125,3,169,64 
,133,351, 163, 13, 133,252, 163, 
209, 141 , 169,2176 

6A 310 DATA 2,141.197,2,141,22, 

20B . 1B3 , 0, 133. 555 , 168. 54. 162 

,19.177,1810 i 
2C 320 DATA 251,145,253,155,253 

, 105,40, 133,253. 144.3,230,25 

4,24,230,251,5734 
D3 330 DATA 209,2,230.252,202, 1 

6,232,230,555, 165, 555 , 501 , 40 

. 176, 14, 105,2537 
A3 340 DATA 191,2,133,253,173,1 

92,2, 105, 0, 133,254, 144. 20B. 1 

63,2, 141 , 2102 
19 350 DATA 190,2,152,0, 189,63, 

172, 157,1,4, 195,70, 172,157,4 

1.4, 1573 

E3 360 DATA 189,77,173,197,91,4 
, 1 B3 , 84 , 172 , 157 , 27 , 4 , 1B3 , 31 , 
172, 157, 1922 

FD 370 DATA 67,4,189,98,172,157 
, 107,4,233,224,7,208,215, 169 



,4B, 141,2042 
63 390 DATA 35,4,141,36,4,152,1 

1, 169,1, 157,2,216. 157,43,219 

,157, 1510 
30 390 DATA 32,215,302,16.244,1 

62 , 9, 157 , 2B, 21B , 157, 68 ,516.1 

57, 108,515,5554 
E2 400 DATA 202,16,244,169.65,1 

41 ,14,4, 141,54,4, 141,94,4, 14 

1 ,39, 1472 
02 410 DATA 4,141,78,4,141.119, 

4, 16S, 10B, 162, 14,157, 120,4,5 
02. 15,1445 
QC 450 DATA 250,152.11,157,147, 
4,202, 15,250, 169, 103, 141,145 
,4. 152 p 4, 1934 
15 430 DATA 133,0,205,167,8,4,1 
93,5,205, 157,48,4, IBB , 12,205 
,157, 1735 
A3 440 DATA 55 , 4 , 202 , 16 , 235 , 1 52 
,2, 189, 19,205, 157, 114,4,202, 
15,247, 1B62 
□4 450 DATA 163,1,199,16,209,13 
7,75,4, EOE , 15 , 247 , 152 , 4 , 142 , 
193, 2, 1767 
A6 450 DATA 142,52,3,505,145,23 
7,2, 142,535,2, 142, 2B, 205, 162 
,11, 142,1B53 
55 470 DATA 37,509,203.142,39,2 
09, 169,7, 141 ,33, EOS, 153, 1 . 14 
1,40,208, 1355 
AE 490 DATA 163, 16, 141, 153, 2, IB 
3, 13B, 141,235,2. 199,206, 141 , 
194,5, 162,5130 
70 490 DATA 3,160,153,152,157,1 
73,2,200,202, 16,249,162,3, 16 
0,203, 152.21BS 
F9 500 DATA 157,177,2,136,202,1 
6,248,56, 152, 1 , 14E, 225, 2 , 14E 
,225, 2, 1939 
E7 510 DATA 202,142,32,209,145, 
33,306,145, 195,2, 14E, 134,2, 1 
45, 137,2, 1385 
7C 520 DATA 142,199,2,142,213,2 
. 142,205,5,142,204,2, 142,135 
,3, 145, 1816 
37 530 DATA 135,3,142,55,3,142, 
BE, 3, 142, 137, 3, 142, 13B , 3, 142 
,133, 1423 
F2 54D DATA 3,142,207,2,142,206 
,2,142,216,2, 14E,E03,2,142, 1 
93,2. 1754 
DC 550 DATA 14E , 220 , 2 , 142 , 221 , 2 
, 142,218,. 2, 142,200, 2, 142,222 
,2, 145, 1943 
60 560 DATA 202,2,142,208,2,36, 
173, 25, 209 p 141,25,209,41,1,5 
40,35, 1749 
17 570 DATA 173, 17 t 208, 41 , 127, 1 
41, 17,209, 173, 189,5.540,3,76 
.97 p 164, 1865 
34 530 DATA 174,197,2,142,22,20 
B. 165.250, 141 , 18,209,206, 188 
,5, 173, 137,2227 
12 530 DATA 3,508,3,75,49.334,1 
73,305, 5,540,6,32, 195, 167,76 
, 121, 1730 
49 600 DATA 153,173,304,2,240,3 
, 32 , 41 , 1 66 , 173 , 203 , E , 205 , EE3 
,3E, 177,2050 
99 610 DATA 168,174,167,2,224,2 
02,240,51, 173, 225,2,208,46 ,2 
35, 187,2,2303 
□4 520 DATA 173,197,2.41,9,240, 
36, 152, 19, 169,200, 133,253,16 
9,4, 133,1323 
4F 530 DATA 254,169,201.133,251 
, 159,4. 133.252, 169,40. 133,20 
,169,20, 133, EE50 
7B 540 DATA 21.32.198,103,159,1 
6, 141, 197,5,209,63,174, 167,2 
,208,11 , 1692 
44 650 DATA 173,222,2,240,53,32 



,253, 153,75, 43, 234, 173,326,5 

P 2D9,42,214B 
32 660 DATA 173.197,2,41,7,209, 

32, 162,19,169,200, 133,253, 16 

3, -i, 133, 1B3E 
39 570 DATA 254,153,199,133,251 

, 199,4,133, 252, 153,20, 133,20 

,32,42, 104,2084 
5D 6B0 DATA 155,23,141,197,2,20 

8, 3, 206, 167,2,75,43, 234, 173, 

208,2, 1870 
93 690 DATA 209,11,173,1,206,20 

1 j 100 , 175 , 3 , 141 , 209 , 5 , 96 , 24 , 

173,0, 1725 
57 700 DATA 206,105,2,144,10,72 

, 173. 16,206,9, 1 ,141, 16,206, 1 

04, 141, 1556 
OA 710 DATA 0,206,205,237,2,208 

,223,239, 136,3, 169,2, 141 , 237 
,2, 153, E1B7 
75 720 DATA 3.45,135,3,141,136, 

3, 170, 183, 177 p 5, 141,248,7,22 

4,0, 1625 

D9 730 DATA 208 , 202 , 32 H 248 , 1 09 , 
173 , 1 6 , 509 , 4 1 , 1 , 240 , 132 , 173 , 
0, EOS, EC 1,2251 
BB 740 DATA 100,144,155,141,205 
,2,96,174,189,2,142,22,208,2 
35. 188,2,2035 
S3 750 DATA 155 , 55 , 141 , 18 , 20B , 3 
2,40, 170, 173, 205,2, EOB, 30, 17 
3,203,2, 1S65 
Al 760 DATA 240,29,173,219,2,20 
B, 14,32, 35, 135, 32, 17, 173, 173 
,221.2,1703 
57 770 DATA 540,3.75,123,234,32 
T 19B, 117 3 32, 118, 170,76. 129,2 
34. 173, 137,2099 
7E 7B0 DATA 3,206,5,32,25,171,7 
E, 123,234, 32, 129 , 1 74 h 1 B2 , 0 , 3 
2,203.1515 
5F 730 DATA 156.190,41,159,52,2 
03, E51,208,47, 169,32, 141. EOS 
,2, 145, 251 , EE5E 
7F 800 DATA 159.144,133,2,163,1 
,133,3,24, 155,2. 109, 122,3, 13 
3,2, 1314 

95 810 DATA 165,3,103,123,3,133 
, 3 , 1 60 , 20 , 1 B3 , 62 , 209 , E , 240 , 3 
.136, 1540 
E2 820 DATA 15,249,169,32,145,2 

,209,52, 169,59, 160,41,209,25 

1,209,16,1985 
9D 830 DATA 153,32,145,251,141, 

203,2.141.99,3,32. 116, 165,76 

,129,534, 1938 
30 840 DATA 153 , BB , 160, 41 , 203 a 2 

51,240, 5,200, 203,251,206, 15, 

150,41. 159,2419 
EE 95D DATA 32 , 1 45 , Kl , 200 , 145 , 

251,500, 145, 251,141,207,2, 17 

3,194,2,240,2579 
34 850 DATA 13,32,51,167,173,13 

7,2.240,3,75,45.155, 173, 136, 
■ 2,540,1795 
Bl 870 DATA 80,76,143,166,162,3 

, 160, BO, 193,33, 1E7 , 209 , 25 1 , 2 

40,79,200,2297 
D6 890 DATA 309,251,240,73,200, 

203 , 251 , 240 , 65 , 200 , 203, 251 , E 

40,53,202, 16,2322 
17 990 DATA 225,173,195,2,209,1 

0, 150,91,32,33, 157 , 144 , 48 , 32 

, 116, 165, 1861 
B4 900 DATA 239,1,208,238,1,208 

, 173,135,2,240, 10,205, 196,2, 

240,5,2152 
5A 510 DATA 209,195,2,209,12,17 

3,1,208,73,255,74, 141, 1,212, 

32, 18, 1612 
B5 320 DATA 170, 76, 1E3, E34, 153, 

1, 141 , 225,2, 141,225, 2, 96, 169 
.0, 141 . 1952 
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B5 930 DATA 135,2,173,0,220,41, 
15,73, IB, 133,255, 209,43,32,1 
15,165-, LBB6 
7 A 940 DATA 173,235,2,141,248,7 
,503, 53S, 2, 508,214, 173,213,2 
,73,1,2134 
Gl 350 DATA 141 . 213, 2, 2QB, 3, 32 , 
243, 105, 169, 10, 141,538,2, 173 
,835,5,1923 
F5 360 DATA 73,24, 141,235,2,76, 
123,534, 165, 555,501 , 1 ,509.14 
, 32,37,1887 
3 A S70 DATA 137 , 1 73 , 203 ,32,116, 
165,32, 155, 166,75, 123,234,20 
1 ,2,2GB, IB, 2077 
EE 380 DATA 130,81,32,99,157,17 
6,522,32, 11B, 165,35, 181, 133, 
76,129, 234,20BB 
5E 330 DATA 501,4,540,23,201,5, 
EOS, B4 , 1BE , 1 , 14E , 134, 5 s 14E , 1 
97, Bp 1B0B 
CE 1DDC DATA 5DE , 14E, 136 ,5, 139, 
19E, 141, E4B, 7 , ECB , 185, 173,50 
4,5,20a, 15,2295 
D4 1010 DATA 173 , 247 , 5 , 508 , 10 h 1 
73,0, 220,41, IE, BOB, 3, 32, 135, 
lG7,20G f 1901 
C4 102C DATA E37 , E , EOS , 23 , £33 , 1 
35,3, 1B3, 3. 141,237,5,45, 135, 
3,141, 1757 
CB 1030 DATA 135 , 3 , 170 , IBS , 173 , 
„ 2,141 , E4B, 7, 224, 0,203,3, 32,2 
4B, 10B, 1891 
BE 1040 DATA 15E , 1 , 142 , EES , E h ED 
5, 1.42, 225,2,76, 129,234,201 , B 
,240,26, 2010 
Cl 1050 DATA 501,9,540,3,73,141 
, 133, 15E, 1, 14E, 134,2,142, 135 
,2,202, 1B7S 
El 1060 DATA 145,197,2,169,204, 
141,545,7,205,553, 173,503,5, 
EOB, 15, 173,2317 
10 1070 DATA 247 ,2, EOB, 10, 173,0 
,220.41 . 16, 2D9, 3.35,41, 168, 5 
03,337, 1812 
47 1QB0 DATA E , EOB , EB , E3B , 13S , 3 
,165,3,141, 537,5,45, 133,3, 14 
1,136, 1353 
02 1030 DATA 3, 170, 1B3, 177,2. 14 
1 , 248, 7 . 554 , 0 , 508, 3, 35 , £48 , 1 
08, 135, 13EE 
S3 1100 DATA 1, 142, 225,2, 202,14 
2 1 226 ,2,75, 129 , 234 , 20G , 55 , 3 , 
209,20, 1870 
BB 1110 DATA 32,133,167,32,248, 
105, 5B, 173, 1 , 208,233,3, 141, 1 
, 20B , 1B9 , 19EB 
7T 1120 DATA 3,141,55,3,33,303, 
55,3,506,250,32,163, 1B7, 32,2 
4B, 108, 17S7 
EB 1130 DATA 24,173,1,209,105,9 
, 141,1 ,208,208,233, 139,0, 133 
,251 , 153,2027 
32 1140 DATA 4,133,255.133,3,16 
3,0, 133, 554, 173, 15,208,61,56 
,112,240,1347 
57 1150 DATA 11,54,169,35,101,5 
51, 133,231 , 144,5, 530,235, 153 
,0,208,74,1071 
2E 11B0 DATA 74,74,56,233,3.54, 
101,251, 133,251,24, 183, 1,503 
, 103,2, 1723 
1C 1170 DATA 74,74.74,56,233,5. 
133,2, 133,553, 150,5,3,253,38 
,354, 1754 
BE 1180 DATA 135,208,249,24,165 
,251, 101 ,253, 133,351 ,165,252 
,101,254, 133,252,2325 
EE 1130 DATA 155,3,240,14,165,2 
,133,253, 169,0,133,3, 133,254 
, ISO, 3, 1830 
AS 1200 DATA 208,212,36,206,1,2 
09,32, 19, 170, 173, 133,2, 10, 14 
1, 1,315,1830 



3C 121D DATA 206,193,2,208,23,1 j 

62, 13,142, 133,5, 535, 145, 135, 

2, 1B3,0, 1867 
99 1220 DATA 141,4,215,141,194. 

2, 141, 137,3,141, 133,2,33,23, 

76,75,1649 
99 1530 DATA 67,160,41.133,34,5 

03,251, 210,7,200, 163,35, 203, 

251, 509, a, 2552 
04 1540 DATA 24,38,56,96.133,0, 

141 , 11,212, 153,9, 141 , 12, 212, 

141, 13, 1503 
07 1250 DATA 212, IBS, 17, 141 ,11, 

212,169,45,141,9,212,96, 153, 

0, 141 , 11, 1754 
CE 1250 DATA 212,169,9,141,12,2 

12, 141 , 13,315, 133, 33,141, 11, 

212, 169,8, 1834 
DA 1370 DATA 141,8,212,96,165,1 

1,141, 12,212.141, 13,212,163, 

17, 141.11, 1703 
FB 1290 DATA 512 , 163, 224, 141 , 8, 

212,93, 173, 1B4, 2,73,3. 141, 19 

4,2,141,1965 
CF 1290 DATA 248,7,96,173,66,3, 

208 ,37,163,2,141, 205 , 2 , 141 , 6 

6,3, 1537 

86 1300 DATA 141,203,2,13,21,20 

9, 141 ,31,308, 173, 1 , EOB, 141,3 

,2DB, 153, 1854 
CO 1310 DATA 137,141,343,7,173, 

16 , 208 ,75,41,1, 240 , 5 , 104 ,3,3 

,209, 1574 
F3 1320 DATA 3,104,41,552,141,1 

6,206,56, 173,0,508,533, IB, 14 

1,2,503, 1504 
37 1330 DATA 175,9,173,16,509,4 

1,253,141, 16,308,38,53, 173,2 

,208,333,5006 
BE 1340 DATA 4.111,2, 209 , 201 , 3D 

,176,242, 169,0, 141,33,3, 141 , 

205,2, 1731 
73 1350 DATA 173 , 21 , 5D£ , 4 1 , 263 , 

141>21, EOB, SB, 173,63,3,303,7 

4 p 165 p 5,1857 
E3 1330 DATA 141,204,2,141.66,3 

,141,206,2, 13,21,503, 141 ,51, 

EOB , 173 ,1691 
91 1370 DATA 1,209,141,3,503,16 

9.199,141, 549 , 7 , 173 , 16 , 20B , 7 

5,41, 1 , 1537 
53 13B0 DATA 208,3,104,41,252,1 

64. BO, 6, 104,9,3, 141,82,3, 141 

, 15,1380 

EA 1330 DATA 209,24,173,0,205,1 

05, IB, 141,2,208,144, 158, 173, 

16,203,9, 1735 
06 1400 DATA E, 141, 15, 303, 141. B 

2,3.96,54, 133,4, 172, BE, 3,209 

,22,1373 

CE 1410 DATA 103,2,203,144,13,7 

2, 173, 16,203,3,2, 141.16,206, 

141,52, 1544 
3F 1420 DATA 3,104,141,5,203,36 

, 105,2, 503,201 ,60, 144,245, 16 
" 9,0, 141 , 1833 
OA 1430 DATA 504 , 2 , 141 , 55 , 3 , 141 

,92, 3, 173,21 ,206,41 ,253, 141, 

2l,20B,170S 
50 1440 DATA 9G , ! 73 , 2C3 , 2 , 2CB , 3 

7 , 505 , 183 , 2 , 20B , 32 , 162 ,4,142 

, 183,2, 1843 
SO 1450 DATA 56 , 1B3 , BB , 4 , 233 , 1 , 

501 ,4B, 176,23,72, 160,4, 185,9 

8,4, 1539 

BB 1460 DATA £01,48,206,8,136,1 

3 , 346 , 104, 140 , 221 , 2 , 96 , 104 , 2 

4, 105,10, 1663 
12 1470 DATA 157,88,4,202,16,51 

8,96, 157,88,4,36, 162,0, 142, 1 

41,3, 1574 
5C 14B0 DATA 145.145,3,532,142, 

143,3,232, 55, 1B3, 114,4,253, 1 

41,3, 201,2000 



3F 1490 DATA 49,176,5,105,10,15 

7, 114,4,502, 16,23B,232, 145, 1 

1,212, 142, 1511 
El 1500 DATA 13,515,163,3,141,1 

2,212, 169, 3, 141,8,212, 169,35 

, 141. 11 ,1EB7 
3B 1510 DATA 212, 165,0, 142,206, 

2 , 232 , 142 , 10 , 212 , 173 ,114,4,2 

01,49,203, 2068 
CF 1520 DATA 17,173,115,4,201,4 

B,208, 10, 173, 116,4,201,48,20 

8,3.141,1570 
S3 1530 DATA 247,5,96,163,0,141 

,247,2, 141.207,2, 141, 141,3, 1 

41, 142, 1822 
El 1540 DATA 3,169,^,141,143,3, 

152,2,24, 199, 114, 4, 125, 141, 3 

,501, 1429 
4C 1550 DATA 58,144,2,233,10,15 

7, 114,4,202, 15,239, 96, 162 , 0 , 

142,203, 1797 
62 1550 DATA 3,145,141,3,232,14 

2, 142,3,24, 153, 35,4, 125, 141 , 

3.201 , 1529 
EE 1^70 DATA 58,144,5,233,10,15 

7/35,4,205, 1S,23B,238,200,2, 

173,200, 1312 
FD 159C DATA 2,201,55,503,77,14 

1 , 222 . 2 , 35 , 135 , 150 , 153, 75 , 32 

,207, 160, 1336 
21 1590 DATA 32,6,151,96,163,0, 

141,216,2, 141 ,141,3, 141,142, 

3,141,1535 
CE 1G00 DATA 143,3,165,2,141,14 

4,3,162,5. 142, 145,3,202,24, 1 

B3, 8, 1495 
33 1G10 DATA 4,125,141,3,201,55 

, 144,2,233, 10, 157,8, 4,202, IB 

,238,1546 
4D 1620 DATA 232.183,48,4,221,5 

,4,240,4, 176,7, 144 . B , 232 , 224 

,4, 1743 

EF 1630 DATA 208,239,96,173,52, 

4,105,5,201,58, 144 , 2 , 233 , 1 0 , 

141,52, 1723 
5A 1540 DATA 4, 173,51,4, 105.5,2 

□1,53, 144,2,233. 10, 141,51,4, 

132,1345 

44 1B50 DATA 2 , 1 83 ,48,4, 1 05 , D , 2 
01 ,53, 144,2,233, ID, 157,48,4, 
202,1407 

4C 1550 DATA 16,539,33,163,0,14 

1.4,212, 133, 17, 141 ,4,212, 169 

,6, 141 ,1735 
1C 1570 DATA 6,212,163,56,141,5 

,212,36,206, 190,2,16,73^160, 

2, 140,1653 
5C 16B0 DATA 130,2,162,7,153,24 

,34,45,3,24,144, 1,56,42, 157, 

24, 1107 

33 1690 DATA 34,189,208,34,45,3 
, 24 , 144 , 1 , 55 , 42 , 157, 206, 34 , I 
83,215, 1597 

AE 1700 DATA 33,72,41,1,208,3,5 

4, 144, 1,56. I0 1 -, ICS, 157, 216, 3 
3, 183, 138B 

3A 1710 DATA 55,34,72,41,1,206, 
3,34, 144, 1,56, 104,106, 157,86 
,34, 1151 

El 172C DATA 305,15.193,136,503 
, 169,36, 173, 133,2,209, 30, 163 
, 198, 141,249,2407 

E2 1730 DATA 7 , 160, 52, IBS, 129, 4 

5, 163, 135,205, 13B, 16,247, 153 
, 1, 141 ,236, 2089 

7D 1740 DATA 2,160,20,140,172,2 

, 140, 193,5,36,205,236.2,208, 

52, 169, 1806 
OB 1750 DATA 4,141,236,2,173,22 

0,2,209, 73, 172,172,2,49,38, 1 

60,53.1710 
C7 1760 DATA 165,2,185,128,43,1 

53, 131 , 49, 136. 202,16, 246, 153 

, 16,241 ,205,2074 
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7F 

SB 

FA 

3D 

85 

F7 

52 

18 

3E 

EE 

F2 

BD 

FA 

OC 
FE 

AH 

□0 

EE 

B3 

EA 

SE 

AC 

EB 

ei 

IE 
15 

2F 
El 



1770 DATA 175,5,163,0,141,1? 

6,43, 141 , 123,49, 141 , 130,43,2 

38,33,208. 178S 

1760 DATA 238,35,206,36,153, 

13, 141.35,203, 172,219,2,203, 

£45,32,35,2055 

1730 DATA 135,32,164,167,163 

3 7, 141 .33,203, 169, 6£, 141, 172 

, £, 141,220, 1969 

1600 DATS 2,35,172,173,3,43, 

19, 162,2, 1B5, 192, 206, 153, 12B 

,43, 136,1724 

1610 DATA 202, 16,546, 140 ,172 
,£,32,248,109,96, 153,0, 141 ,2 
20,2. 141 p 1335 

1B20 DATA 218,2, 141,199.2,14 
1,203,2,36.174,157,2,240, 3, 7 
6, 139, 1965 

1B30 DATA 171.173,136,3,203, 
£2, 169, 1, 141,21 ,£0B ,141, IB , 2 
OB, 153, BO, 1849 
1940 DATA 141,0,203,169,132 
141 ( 1 ,£08,141,138, 3, 25, 5B, 17 
3,0, 2D6, 1969 

1B5P DATA 233, 1, 176, 10, 7£ s 17 
3, 15,206,41,254, 141, 15,209, 1 
04, 141,0, 1794 

1860 DATA 208,206,237,2,203 

28,238,135,3,163,3,141,237,2 
,45, 135, 1337 

1B70 DATA 3,141,135,3,170,13 
9, 173,2, 141, 24B, 7,224,0,203, 
3.32, 1673 

1930 DATA 24B, 106,173, 133 3 

20B.E0, 162,0, 32,203, 15B, ISO, 
61, 163,57, 1379 
1B90 DATA £03,251 ,£08,4, 140 
133, 3, 9G, 1B0, 61, 153,82,209,2 
51 ,240,34, 227G 

1900 DATA 136,203,251,240,23 
. 153, BB , 203 , 251 , 240, 23, 200 , 2 
03,251 , 240, 16,2751 
1310 DATA 24,173,1,208,105,2 

,141,1,206,73,255,74, 141. 1 ,2 
12,32, 1ES1 

1920 DATA 13,170,96,173,0,20 
3 , 201 , 174 , 203 , 246 , 1 73 , 235 , £ , 
141,249,7,2303 
1330 DPT A 141,137,3,32,126 1 
73,36,173,138,3,208.23,162,1 
, 142,21 ,1581 

1340 DATA 206,202,142,16,208 

, 163 „32, 141, 0,203, 163, 182, 14 
1,1 T £0B,X41,215B 
1850 DATA 136,3,96,24.173,0 
208 , 105 , 1 , 141 , 0 , 20B , £06 , 237 , 
2,208, 1750 

1360 DATA 28,233,136,3,163,3 
,141, £37, 2, 45, 136,3, 141, 136, 
3 ,170, 1531 

1970 DATA 169, 177,2, 141 ,£48, 
7,224,0,206,3,32,246,103,173 
, 133,3, 1302 

1360 DATA £08, 161, 152,0, 3£,B 

03, 155, 150,82, 159,75,203,251 

,208,4, 140,2230 

1330 DATA 139,3,36,160,90 IE 

3 , 62 , 203 ; 25 1 , 240 , 19 , 200 , 203 , 

251,240,14,2352 

2000 DATA 153, 30,203, 251,240 

, 8 , 200 , 203 , 251 , £40 , 3 , 76 , 150 , 

171 ,96,55,2378 

2010 DATA 19,3,15,18,5,32,65 
,2,5, 19, £0,32, 32, 65, 20, 9, 361 
2020 DATA 13,5,32,32,65, 1 , 16 
,16, 12,5, 13, 65, 12,3, 22,5,323 
2030 DATA 13.32,65,2,15,12,2 
D, 19,32, 1G3, 52, 141 ,73, 15, 141 
, 150,967 

2040 DATA 15,141,160,15,141, 
£13,15, 141 ,245, 15, 14L, 117, 16 
,141,229, 15,1761 
2050 DATA 141,8,17,141,41,17 



11 

13 

BO 

50 

66 

5A 

6F 

BB 

2A 

Bl 

FO 

E5 

FD 

CB 

Bl 

15 

66 

OE 

B9 

FA 

BD 

86 

83 

19 

3A 

CE 

6C 



,141., 39, 17 , 141 , 153, 17, 141,25 
3. 17, 141, 1474 

£060 DATA 42,18,141,65,16,14 
1, 132, 16, 141, 1 , 19, 141,96, 19, 
141.221,1354 

2070 DATA 19,141,236,19,141. 
30,20, 141,73,20, 141, 120,20, 1 
4:. , 210,20, 1432 

20B0 CATA 141,224,20, 141,57, 
21,141,237,21,141,52,22,141, 
96 fc 22, 141, 1520 

2030 DATA 181 , 2£, 141 , 218, 22, 
141 , £51 ,22, 141 ,155,23, 141,21 
5, £3, 141,245, 2082 
2100 DATA £3, 141, £6,24 ,141,1 
15,24, 141, 141,24, 141,243,24, 
141,53,25, 1433 

£110 DATA 141,6,26,141,117,2 

6, 141,214,25, 141,53,27.141, 1 

27,27, 141,1495 

£120 DATA 153,27,141,241,27, 

141,11,28,141, 13G, 28, 141,202 

,28, 141,213, 1799 

2130 DATA £8,141,19.23,141,1 

73,23, 141 ,189,29, 141,246,29, 

141 ,64,30, 1575 

214D DATA 95,150,0,132,2,140 
, 114,3, 140, 213,2, 2pO, 132,3,1 
40,218,1701 

2150 DATA 2, 5G, 195, 75, 4, £43, 
2,0,201,49,176,2,105, 10,153, 
75, 1343 

£160 DATA 4,136,16,238,173,7 
6,4,201,49,208, 1 1 , 1 73 , 75 , 4 , 2 
01,46,1616 
"2170 DATA 208,4, 141,221,2,96 
,160, ID, 140, 5,212.200,140,12 
,212, ISO, 1323 

2180 DATA 6,140,6,212,136,14 
0, 13,212, 36, 163,46,205, 114,4 
,206,12,1721 

2130 DATA 205,115,4,206,7,17 
3,114,216,73, 1,240,2, 163,1, 1 
41 , 114, 1783 

2200 DATA £16,141,115,215,14 
1 , 116,216,35, 0,0, 0,0,0,0,0,0 
, 1257 

2,210 DATA 163,170,141,253,7, 
163, 171, 141 ,252,7,163, 172,14 

I, 93,3,141.2199 

£^P0 D-TA 94,3, 1G9 I S;9,14: ,2 
55,7. 173,21,209,41, 1,3, 129, 1 
41 , 21 , 1531 

£230 DATA 208,153,166,141,14 
,208, 163, 49, 141 , 15,208, 173,2 
9,209,9, 128,2035 
2240 DATA 141 . 29 , £09 , 163 , 1 1 , 

141,41,208,141,42,206,141,43 
S 2D9, 141,44, 1316 
2250 DATA 208,169,0,141,33,3 
,141,94,3,141,86,3,141,100,3 
s 141, 1463 

2250 DATA 101,3,153,4,141,46 
,208.141,102,3,141,96,3,141, 
30,3, 1384 

2270 DATA 141,105,3,141,106, 
3,32, 139, 178, 32, 164, 178, 96, 1 
69,0, 141, 1B48 

2260 DATA 7 , 212 , 141 , 1 1 a 212 , 1 
69,3, 141,8,212,169, 10 , 141 , 12 
,212,141,1801 

2230 DATA 13,212,169,33,141 

II, 212,35,173,39,3,240,4,32, 
126, 173, 1739 

£300 DATA 36,162,4,32,23,177 
,160,41,32,13,176,169,0,105, 
0. 141, 1342 

2310 DATA 3B, 3,208,22,172, 25 
0, 7, 192, 170, 144,5, 160, 154, 14 
0,250,7,1990 

23£0 DATA 32,132,177,169,0 1 
05,0, 141,84,3. 162, 6, 3£, 28, 17 
7, 1B0, L4G8 



7E 
30 
B3 

20 

07 

16 

9E 

C9 

A6 

73 

F7 

86 

3F 

09 

53 

6E 

CO 

42 

6F 

28 

Al 

AA 

EC 

34 

31 

E8 

79 



2330 DATA 40,32,13,176,163,0 
, 105,0, 141 ,38,3.209,22, 172,2 
51,7,1443 

2340 DATA 192,170,144,5,160, 
163, 140,251 ,7, 32,132, 177, 169 
,0, 105,0, 1B53 

2350 DATA 141,66,3,173,5,208 
,201 ,229, 144,3,32,133, 176, 17 
3,7,203, 1323 

2360 DATA 201,226,144,3,32,1 
94, 178,32,244, 174, 32, 124, 175 
,32,227, 179,2198 
2370 DATA 36,173,100,3,240,3 
3,236,45,209.169,0,141, 11,21 
2, 153,5, 1944 

2380 DATA 141,12,212,141,13, 

212,24, 173, 15,208, 105,2, 141, 

IS, 208, 141 , 1753 

2330 DATA 6,212,163,17,141,1' 

1,212,173,91,3,240,3,32,36,1 

75, 173, 1756 

2400 DATA 92.3,240,3,32,205, 
175, 173, 103, 3, 240, B, 206, 103, 
3,76, 1BB3 

2410 DATA 197.174.32,155,177 
.173,226,2,240,21,173,225,2, 
£40, 15, 206,££S3 
2420 DATA 101,3,206,19,205,1 
02,3,206, 14, 169, 1, 141,100.3, 
96, 14L , 1515 

2430 DATA 101,3,169,4,141,10 
£,3, 173, 104,3,240,4,206, 104, 
3,95, 1456 

2440 DATA 32,19,178,95,173,9 
1,3.208, 71, 173. 1.209,205,5,2 
08,209, 1879 

2450 DATA 63,173,16,206,41,4 
,208,55, 173, 36, 3, £08, 51, 173, 
250, 7, 1730 

2460 DATA 201,158,176,44,173 
.4, 208,205,0,20b, 144, 36, 141 , 
9,208, 173, £067 
2470 DATA 1.208, 141,9,206, IE 
9 . 156 , 141 , £50 , 7 , 173 , 16 , 208 , 4 
1 , £39, 141,2110 
2480 DATA 16,208,173,21,206, 
3, 15, 141,21,208, 141 ,91,3,32, 
237,173, 1558 

2490 DATA 36,104,173,21,208, 
4 1 , 239 , 14 1 , 21 , 208 , 1 73 , 95 , 3 , 2 
06,5, 1 GO, 1837 

2500 DATA 154,140,250.7,169, 
0.141,31,3,141,8,209,141,5,2 
06,96, 1766 

2510 DATA 56,173,8,205,233,3 
,176, 16,72,173,16,208,73, 15, 
170,41, 1642 

£520 DATA 16,208,208,138,141 
p IB, 209, 104,141 ,6,208,35, 173 
,92,3,208, 19GG 

£530 DATA 103,173,1,206,205, 
7,206,208,35, 173, 15,208,41,8 
,209,66, 1350 

2S40 DATA 173,39,3,206,83,17 
3,251 ,7, 201 , 157, 144,76, 173,6 
,209,201 ,2172 

2550 DATA 40,144,63,205,0,20 
8, 175,64, 141 , 10,208, 173, 1, 20 
8, 141 , 11 , 1739 

25G0 DATA 209,160,165,140,25 
1,7, 173, 16,208,41,223, 141, 15 
,£0B, 173,21 ,2151 
2570 DATA 208,9,32,141,21,20 
8, 141,92,3, 32,237,173,36,24, 
173, 10, 1600 

2580 DATA 206,105,3,144,16,7 
2, 173, 16,208,73, 3£ a 170,41,32 
,240,3, 1542 

2590 DATA 138 , 141 , 16 , £08 , 10 1 * 
,141, 10,206,96, 104, 173,21 , 20 
6,41,223, 141 , 1973 
2500 DATA 21,206,173,96,3,20 
6,5, ISO , 153, 140,251,7, 169,0, 
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141, 10, 1753 
54 5610 DATA 206 , L41 , 11 , 206, 141 

5, 93, 1430 
□6 5820 DATA 29, 35, 34 , 199, 92 , 3, 
508 , EH , 169 , 34 , 209 p H7 t 340*7 , S 
00, 1G9,17S3 
15 2630 DATA 35.209,97,209,43,1 
89, 1,208,505, 1,200,240,41.14 
4,39, 173 , 5037 
OA 2E4Q DATA 1 E , £09 , El , 55 , I 12 , £ 
□0, 59, 189, 0, 209,201, 36.144,2 
4,189.1. 1333 
E9 2550 DATA 206 . 233 , 9 , 137 , 1 , £0 
8 , 169 , 172 , 224 , 4 , 209 , 5 , 141 , E5 
0,7, 208, ££03 
CI 2650 DATA 3, 141 , £51,7, 56, 96, 
24 p 96 , 160 , 90 , 169 , 34 , 203 , 67 , E 
40 ,£44, 1097 
£4 £G70 DATA £00 , £09 , B7 , 540 , 239 
,200,205,87, E40 , E34, 160,90, 1 
99, 35,203, 87,2995 
ED 2690 DATA 240,229,200,209,67 
, £40 , 351 , £00, 509, B7 , 540 , 21E . 
209,515,205,99,3093 
CB 2E90 DATA 3,209,25,173,83,3, 
73,1, 141,93, 3, 141,250,7, 153, 
8, 1391 

F3 3700 DATA 141,96,3,55,173,5, 

209, 233,9, 141,9,209, 173, 33E, 

5,203,1878 
15 3710 DATA 16 , SB , 173 , 4 , £QB , 23 
" 3,1, 141, 4, 209 ,176, 6, 173, 16, £ 

00, 73 3 1701 
BE 3730 DATA 4 , 14 1 , 1 3 , £00 , 173 , 2 

29,3,309, 13,34, 173,4,203, 105 

, % , 141, 1852 
7F £730 DATA 4,208,144.9,173,16 

,309,73,4, 141, 16,208,33,206, 

30, 3, 1599 
35 £740 DATA £03, £5, 173,94,3,73 

, 1,141 ,94,3, 141,351 ,7, 169,8. 

141, 1532 

CG 2750 DATA 80,3.56,173,7,306, 
£33,3, 141, 7, SOB, 173,229,2,20 
6,19,1762 
69 2790 DATA 55,173,5,208,233,1 
, 141,6,209, 179,9,173, 1E,20B, 
73,3, 1694 
35 2770 DATA 141,16,208,173,325 
, 2, 206, 156,24, 173,6,209, 105, 
1, 141,6, 1933 
OE 2790 DATA 206,144,135,173,19 
,208,73,8,141, 16,206, 96, 163, 
0, 133,87, 1065 
C3 2790 DATA 169 , 4 , 133 , 99 , 133 : 9 
0, 169,0, 133,92, 173, 16,509,91 
,56,112, 1G37 
92 2600' DATA £40,11,24,169,33,1 
01,97, 133,67, 144, £,230,99, 19 
8,0,209, 1745 
ID 2610 DATA 74,74,74,55,333,3, 
34, 101,87, 133,87,24, 193, 1,30 
0, 105, 1473 
52 2620 DATA 2,74,74,74,55,233, 
9,133,93, 133,91, 150,5,6,91.3 
9, 1^95 

30 £330 DATA 32 , 13G , 203, 249 , 24 , 
195,67, 101 , 31 , 133,87, 195,66, 
101 ,92, 133,1352 
85 2840 DATA 99,165,90,240,14,1 
55,83, 133,91, 169,0, 133,90,13 
3,32, 1E0, 1652 
CS 2950 DATA 3,206,219,95,162,1 
0, 160,30, 199.9, 179,209,97,24 
0, 10,200,2056 
F2 2960 DATA 209 , 87 , 24Q , 5 , 20£ , 1 
6, £39, 56, 96, 24, 99, ,173,96, 3,2 
40,4, 1786 
7E 2970 DATA 32,126,175,96,173, 
34,3,540,20, 173, 19,206,41 ,4, 
£40,7, 1639 
2D 2S8C DATA. 173,4,306,501,02,1 



75,5, 236 , 5 , 209 , 238 , 5 , 208 , 206 

,105,3,20GG 
54 5880 DATA 203,41,169,4.141,1 

□5,3, 173,91,3,540, 14, 172, 290 

,7, 192,1613 
F7 2900 DATA 161,144,14,150,159 

,140,250,7, SOB, 17 , 172. 250, 7. 

192, 157 ? 175, ££13 
97 2910 DATA 5,236,250,7,205,5, 

ISO, 154, 140,250, 7,24, 173, 22E 

,2, £40, £083 
06 2320 DATA 6 , 173 , 525 , £ , 208 , 3 , 

9E, 105,2,141,95,3,56, 173,4,2 

09, 1490 

EE 2330 DATA 237 , 35 , 3 , 176 , 1 0 , 72 

,173, 15,206,73, 4, 141 , 16,E09, 

104.141, 1667 
16 2340 DATA 4,208,96,173,30,3, 

240,4,32,205, 17G , 3G, 173,86,3 

,240, 1637 
CD 2950 DATA 20,173,15,2^6.41,5 

,£08,7, 173, G, £08, 501 ,50, 144, 

5,239,1577 
92 2350 DATA 7,208,238,7,208,20 

B, 109,3,209,41, 159,4,141, 1C5 

,3, 173, 1029 
BG 2370 DATA 32,3,240,14,175,25 

1,7, 192, 162,206, 14, 160, 1GS, 1 

40,251,7,5070 
HA 5880 DATA 206,17,172,251,7,1 

32 , 155 , 240 , 5, 206 , 251 , 7, 208 .5 

, 150, 153,2264 
2" 29£C DPTG 140,251,7,24,173,2 

25, 2, 240 , G , 173 , ££6 , 2 , £08 ,3,8 

9,105, 1801 
B2 3000 DATA £,141,85, 3, £4, 173, 

6,206, 109,55,3, 144,10,75,173 

,19, 1254 

42 3010 DATA 208,73,8.141,16,20 

8, 104, 141,5,209,35, 153, 174,1 

41,9.208,1906 
30 3020 DATA 163,80,141,4,208,1 

73, 16,206,3, 4, 141 , 1 E , 205 , 173 

,21,308, 1778 
7D 3030 DATA 6,4,141,21,205,163 

, 154, 141,250,7, 155. IOC, 141 , 1 

03,3, 168, 1789 
B7 3040 DATA 0,141,96,3,141,31, 

3.9E, 1E3, 174, 141 ,7,206, 1E3 , 1 

00, 141 , 1680 
14 3050 DATA 104,3,169,0, 141,32 

,3, 141,60, 3, 141,9,209, 173, IE 

, 206 , 1 505 
34 3080 DATA 41,347,141,16,208, 

173,21,206, 8,3, 141 ,21,208, IB 

3, 199,141,1321 
El 3070 DATA 251,7,86,173,30,20 

8,41, 1 ,240,17, 173, 21,209,41, 

127,141, 1775 
C6 3080 DATA 21,200,163,1,141,9 

9 , 3 , 141 , 203 , 5 , 33 , 1 73 , 21 , 208 , 

41,2,1529 
C5 3090 DATA 240,70,165,4,173,2 

1,508,61,55, 112,540,5,32, 73, 

179, 144, 1700 
IE 3100 DATA 7,233,232,284,12,2 

08,537,95, 163,59. 113,73,253, 

45,51 ,208,2205 
AE 3110 DATA 141,51,509,224,4,2 

06, 15, 173,51 ,208,41,239, 141, 

21,200,32, 1305 
72 3120 DATA 139 , 178, 35 , 164 , 159 

,35, 224, 5,200, 14, 173,21,208, 

41,223,141,2037 
EB 3130 DATA 21,206,32,104,173, 

32, 154, 1E9,9B,5B, 189, 1 , 206 . 2 

33,10,205, 19BG 
5E 3140 DATA 3,205,176,106,105, 

20,505,3, 206, 144, 99, 173,249, 

7,201, 133, 2109 
00 3150 DATA 240,58,173,16,209, 

61,59, 115,503,84,55, 173, 2,20 

9,533,3, 1655 



11 3160 DATA 221,0,209,175,73,1 

05, IE , 221 , O, 208 , 144, 66. 24 , 99 

, 173. 16, 1747 
FA 3170 DATA £08,61,56,112,208, 

23, 163,2, 45, 15,208,206,49,55 

, 173,2, 1E02 
41 3100 DATA £08, £33,8, ££1 ,0,20 

3, 17E,38, 105, 15, 175,224,221 , 

0,206, 144, 21BB 
3A 3190 DATA 29,176,217,24,169, 

5,45, 16,208,240, 1£, 173,2,208 

, 105, B, 1534 
37 3200 DATA 221,0.209,144,9,17 

8, 197, 173, £,£08, 105,8, 176,24 

5,56,35,2021 
C5 3210 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
6B 3550 DATA 78,221,100,173,26, 

205, 141 ,25,208,41, 1 ,203,3,76 

,49,234, 1859 
72 3230 DATA 169,49,141,19,209, 

173, 17,208,41, 127, 141, 17,208 

,155,255, 240,2175 

55 3240 DATA 3,75,34,192,173,24 
8 , 7 , 201 , SOB . 540 , 107 , 506 , 537 , 
2,205, 23,2155 

13 3250 DATA 163,3,141,237,2,24 

T 173, 248, 7, 105, 1,201 ,204, 144 

,5,35, 1635 
DO 3250 DATA 249, 106, 169.200, 14 

1,249,7,24, 173, 0,206, 105, 1, 1 

41,0,508, 1331 
66 3370 DATA 72,201,96,208,5,16 

9,93, 141, 1,209. 104,201 , 106,2 

08,52,141,3003 
36 3200 DATA 2,208,133,101,141, 

1,£0B, 141 , 3,206, 159,208, 14. , 

248,7, 173,2129 
80 3290 DATA 21,209,9,5,141,21, 

508, 133,0, 141 ,11,212, 141 ,13, 

212, 159, 1675 

56 3300 DATA 9,141,12,212,159,3 
,141,6, 212, 169,55, 141, 11, 212 
, 1G9, 1,1675 

11 3310 DATA 141,10,212,76,48,2 

34, 24, 173, 16,208, 41 ,2,208, 34 

, 173,2, 1603 
S3 3320 DATA 208,105,4,141,5,20 

3, 144,235, 173, 16,208, 3,2, 141 

, 16,206, 1820 
6D 3330 DATA 32,61,191,32,116,1 

67,33,164, 169, 155 , 32 , 141 , S3, 

5,205, 211, 1755 
3H 3340 DATA 173,2,208,105,4,20 

I, 100, 173,6, 141,2,208,76,49, 
234,506, 1831 

A5 3350 DATA 104,3,206,191,141, 

II, 212,506, 105,3, 203, 163, 173 
,21,203,41,2016 

H5 3350 DATA 249,141,21,205.155 

, 32, 141 ,104, 3, 160,0, 169,32, I 

53,208,9, 1795 
67 3370 DATA 153,331,6,169,13,1 

53,£0B,216, 153, 23,1,213, 135,^ 

05,237, 160,5,2500' 
El 3360 DATA 153,13,153,25,213, 

136, 15,250, 132, .255,75, 34, 1B2 

,32,86,37, 1B17 
IB 3390 DATA 169,24,141,53,308, 

141,33,208, 169,52, 133,3, 163, 

50, 141 ,7, 1677 
55' 3400 DATA 308, 141 , 3, SOB, 169 , 

175, 141,251 , 7, 153, 184, 141,23 

2,7, 189, 148, 2383 
31 3410 DATA 141,6,508,163,186, 

141,9, 209, 199,7, 141,42,2C8, 1 

41,43,308,3036 
£6 3420 DATA 153 , 39, 133, £, 163 , 3 

4, 133,253, 153,5, 133,254, 159, 

0, 133,255,2040 
51 3430 DATA 133,10,120,169,48, 

141 , 16, 2D9, 159,211 ,141,20,3, 

159, 179, 141 , 1B60 



YOUR COMMODORE march 1989 
71 



LISTINGS 



5-i 

EE 

EC 

30 

S£ 

BC 

1 □ 

EB 

c: 

EE 
AF 
5E 

OB 
5D 
71 
EE 

as 

AC 
1C 
CD 
65 
IF 
DF 
□ 1 
C7 
55 
1G 
OE 
3E 



3440 DATA 51,3, 173 ,17, SOB ,41 
i 1E7, 141 p 2 7 , EOS , 173,26,206,9 
, 1, 141, 1S14 

3450 DATA EB, 508,173,14,280, 
41,E54 n 141, 14,226, BB, 173,236 
k E ,2HO,B51,E301 
34GQ DATA 35,189,35,150,8,15 
3,241,5, 153, £5,5, 153,85,6, 13 
5, 15, 1424 

3470 DATA 544,150,6,163,1,15 
3,5G,5lB t IBS, 178, 181, 153, EB, 
6, 135, IB, 1B5B 

34B0 DATA 243,160,14,185,185 
, 1B1, 153,321, 5,163, 1, lS3 a EEl 
,518, 138, 15,2261. 
3430 DATA E4S , 1 SO , 25 , 1 B5 , £00 
, 1B1, 153,40,7, IBS, 1,153,40,2 
19, 136, IS, 1327 
3500 DATA 242,160,34,185,558 
, 1B1, 153, 115,7,169, 1 , 1S3 S 115 
,219, 136, 18,5115 
3S10 DATA 242,160^3,165,5,1 
82, 153, 199,7, 159, 1, 153, 199, E 
19, 136, 18,5054 

3550 DATA 245 , 86, EO , B, S. 33, 8 
,14,4,25,5, IE, 12,32,4, 15,531 
3530 DATA 14 , 8 , 32 . 23 , 9 , 1£ , 12 
,25,25, 15,31,32,0, 1,23,5, E51 
354C DATA 32, IS, 5, 19,3,51 ,4 S 
5,4,33,55, 15, El, 1B,32,19,E73 
3550 DATA 15,14,8,15,18,5,32 
,58, 15.51 ,3E, 5, 14,10, IS, E5, 2 
67 

3550 DATA 5 , 4 „ 3E , 20 , 8 , 5 , 32 , 7 
r l, 13,5,32,13,15,18,5,215 
3570 DATA 32,20,8,1,14,13,25 
,32,23,9,5,5.32,5,14,10,249 
35S0 DATA 15 , E5 , 5 , 4 , 3S , 1 3 , 5 , 
32,23, 1B,9,E0, 9, 14,7, 32,553 
3590 DATA 3,20, 173,236, E,EOB 

,82, 168, 10, 208, SI, 168, 12B, 14 
1.4,212, 104S 

3600 DATA 169,10,141,1,212 1 
41,6,212, 162, 17,160,0, 140, 5, 
212. 189, 1757 

3610 DATA 129,141,4,212,185, 

553 , 1 33 , 251 , 1 88 , 254 , 1 33 , 252 , 

165,3,73,30,5353 

3620 DATA 133,3,145,251,54 1 

65,25i, 105,40,133,251, 165,25 

E r 105, D, 133,3156 

3630 DATA 35E , 205 , 1 5 , 235 , 24 , 

185, E53, 105, 1, 133 r E53, 155 25 

4, 105,0, 133 k EE93 

3E4Q DATA 254,190^16,4,169 

,1,133,10,76,48,234,505,104. 

3,2GB, 1567 

3680 DATA 24B , 165 , 0 , 142 , 4 , 21 
5,232, 142,238, 2, EQB, 237, O.0, 
0,0, 18E5 

36SQ DATA 169,0.133,250,153 
133, 133,551, 163,0, 133, 174 13 
3, 193. 163, 160,2353 
3670 DATA 133,175,133,194,15 
8,144,133,252,169,155, 133, E5 
3, 1^0,0, 177, 5SCE63D 
3680 DATA 145.174,330,250,20 
* , S . E30 , 251 , £ ?C , 1 74 , 208 , 3 , 53 
0, 175, 165,550,2924 
3690 DATA 137,252,208,234,16 
5, 581 , 197, 253, 20 B , EES, 169,43 
, 133, 1B7, 168, 155, 3050 
3700 DATA 133,198,169,3,133, 
193, 169,0, 133, 185, 160,0, IBS, 
551, 185, 240.33B7 
3710 DATA 6, 35, E1D, 255 ,500, 2 
08, S4B, 32 , 207 ,255, 210,251,20 
1 ,49,240,^,5835 
3720 DATA 501,56,48,330,41,1 
5, 133, IBS, 76,E4, ISH, 147, 17, L 
7, 73 S 7B, 1539 

3730 DATA 80,85,84,32,68,69, 
B5 , 73 B 67 , 68 , 32 , 78 , 85 , 77 , 66 , 5 
9, 1120 



FE 3740 DATA 62,13,17,67,55,83, 

Bl ,49,32.47, 32,68, 73, 93,76, 6" 
1,309 

94 3750 DATA 32, 5S, 32 , 79 7 82, 32 , 

57,58,45, 32, 0,57, 6^,84, 0,0, 7 
30 

82 3750 DATA 0,0,0,0,0,0,0,0,0, 
0,0 ( 555,255, £55,255, 255,1275 

AS 3770 DATA 159,54,133,1 32 23 
4,245, 189,55, 133, 1,0,0,0,0,0 
, 1336 

Personal File 




PROGRAM: PERSONAL FILE 



56 5 TFPEEK (49152) <>32 THEN LOAD" 

PERS.MC",8/1 
&2 7 P0KE52 1 100 ; FOKE56 .100; POKE 

25600. 0:POKE256 01 . 10l:POKE25 

602,0 

C3 10 P= 1 r FRI NTCHR$ (14) . " I BLACK 



FF 



47 



Al 

18 

74 
66 
05 
7C 

EF 
7C 
AB 



EF 

8F 



Al 

43 

34 

7A 
OA 

06 



76 



20 A£-"@Ol++DATACT ;FORJ-1TOL 
ENCAD :POKE25600+236+J P ASCfM 
£D$(A$ P J # 1) J :NEXT 

25 A-25856 ; FORJ- DT020STEP2 : B 
-INT ( A/256) i PQKE25603+ J r A-B* 

26 POKE25603+J+1 .B- A-A+1000; 
NEXT 

30 GOTOIOOO 

90 G0SUB95 : IF?!$ = "N"THEN1000 
92 GQT01QQ 

95 PRINT" ISA] RE VOU 5URE? " 

96 GETZfi : IFZ$< >"Y"ANDZ$< >"N" 
THEN96 

97 RETURN 

100 5YS5Q093:SYS49299 

105 GOSUB 15 0 j I FEN=OTHENPR I NT 

"[DOWN) SAVED A3 DATA FILE" P P 

BEK f 25846 ) -49 S G0SUB95Q : G0T01 

000 

110 IFENO63THEN1B0 

120 PR1NTEM$ r "OVERWRITE IT": 



CB 1 3D GETA IFA$< > "Y" KD ?.. = ■• ' 1 N 
"THEN130 

D6 135 GOSUB95 ■ IF2S = , 'N"THEN1000 

2B 140 IFA$-"Y"THENSYS49 34B:G0T 
01 05 

5B 145 GOSUB200 i IFEN=OTHENPRINT 
"NO MORE FILE SPACE" : GOSUB95 
0 iGQTOlQOO 

6C 147 P0KE256 00+246 , PI : GOTO 100 

88 150 OPEN15.8. 15: INFUT#15,ENp 

Em :CLOSEl 5 ; RETURN 
4F 1B0 PRINT "ERROR - " , EN ,EM$ : 

POKE 1 96 . 0 SWAIT198, 1 s GOTOIOOO 



200 FI-4B 

202 GOSUB210 : IFEN< >OTHENRETU 
RN 

205 Fl-FI+1 l IFF I >58THENEN-0: 

RETURN 

207 GGTO202 

210 CLOSES :OPEN3,0. 3 r " + *D ATA 
w +CHR*(f I) : GOSUB 15 0: RETURN 
300 PRINT" [DOWN, SW| HI CH FILE 
NUMBER (0-9) 11 : 1NPUTFI : IFFKQ 
ORFI >9THENFRINT 11 tUP,3FC5] " ; P 
R r NT" 1UP3] " ; :GOT0300 
310 POKE25B46, FI +48 : SYS493 20 
: GOSUB 150 ; I FEN- OTHE N PR I NT ' ' OK 



7A 
80 
1 2 
BB 
SB 
65 

14 

F2 
25 
9B 
IF 

1C 

14 

7E 
B7 
35 

2B 

E4 

44 
7E 

EG 

AF 

2F 

BC 

4E 

5& 

4k 

C3 
AD 

71 

67 



" : GOTO:":-"..; l 

320 IFEN-G2THENPRINT" [SNIO S 
UCH FILE" :GOSUB950 : GOTOIOOO 
330 PR I NTEN , EM$ : GOSUB950 : GOT 
O1000 

350 SYS5024B:P-PEEK (25602) +1 
:GOSU8950 : GCT01 OOO 
500 IFP>9THENPRINT" [SNJO MOB 
E SPACE" ;GOSUB950:G0T0l 000 
5D7 PRINT" [CLR.5P] AGE";p : " [H 
OME] "j 

508 POKE251 .0rPOKE252 . 4 : POKE 
253, 0 ;POKE254 r 0 : POKE25300 , 5 : 
SYS49510 

510 P0KE19, 1 : INPUTAS :P0KE19, 

0:SYS495 35 

550 SY54915 2:P=P+1 

555 GOTOIOOO 

600 GOSUB702: I FE=1THEN1 OOQ 
605 POKE780,P1-1 iSYS49916;P- 
P-l : GOTOIOOO 

650 E-0:GOSUB705; IFE-10RP-10 
THEN500 

655 PQKE7S0 f Pl-1 : SYS50000 : P- 
P+l : GOTOIOOO 

700 G0SUB702: 1FE-0THEN715 

701 GOTOIOOO 

7 0 2 E-0: IFPEEK ( 25602) -OTHENE 
-1 ; RETURN 

705 PRINT" [SWJHICH PAGE" ; : IN 
PUTP1 

710 1FP1>P-10RP1=QTHENPR I NT- 
NO SUCH PAGE lr :GOSUB95 0 :E-1 sR 
ETURN 

712 RETURN 

715 PI -Pl-1 :P0KE7B0,P1 ; PRINT 
" [CLR] " :SYS^9243 
717 POKE251 .0;FOKE25 2.4:POKE 
253 P 0 : POKE254 , 0 : SYS495 10 
71B PRINT" [HOKE, SP] AGE" rPl+1 
; " [HOME | 11 ; 

720 P0KE19 r 1 ; [NPUTAJ; POKE 19 P 
0 l SYS49 5 35 ; POKE780 , PI ; S YS49 2 
82 -GOTOIOOO 

BOO I FPEEK (25602)- QTHENPR I NT 
" {HN]0 DATA TO F : 'RINT" ; G0SUB9 
50: GOTOIOOO 

810 PRINT" [SS] WITCH ON PRINT 
ER AND PRESS A KEY" i GQSUB950 



B20 OPEN4.4,7:SYS4935e;PRlNT 
#4:SYS6F5484; I FST- OTETENE 3 R I NT " 

OK" :G0TOS4G 

B30 PR J NT"ERROR " P ST r G0SUB95 
0 : GOTO 10 00 

840 SYS655 H E GOSUB 950 iGOTOlO 
00 

950 POKE 198 P 0 : WAJT19B , 1 : RETU 
RN 

99 0 STOP 

1 OOO PRINT ' [CLR , RVS">N . SPC6 r S 
P,SE,SR P SS t SO.SN,gA.SLpSSPC P 
SD.SA. ST.SA,SSPC-SF.SI ,SL r SE 
. SSPC . SS P EE , ST r SSPC , SU . 5P . SP 
C9.RVS0FF] " ; 
96 1020 PRINT" [SS SETUP EACH SCR 

EEN USING ANY KEY EXCEPT 
7A 1030 PRINT" [RVSON. SR. SE r ST,S 
U r SR,SN P RVSOFFJ , [SU]SE [RV 
SON) > [RVS0FF1 TO SET THE STA 
RT OF EACH 
BA 1031 PRE NT"F1ELD AND THEN TH 
E [RVSON.&TJ 1 [RVSOFF) AND [R 
VSON.SFf 7[RVS0FF] KEYS CAN 
35 1032 PR I NT "BE USED TO TAB UP 

AND DOWN. 
IB 1034 PRINT" [RV50N r SFl 3 IRVSOF 
F] DELETES A LI NE [RIGHT] AND 
[ RVSON , SF ] 5 t RVSOFF ] I NSERTS 
ONE. 

04 104 0 PRINT" fSU]SE THE [RVSON 
H SR J 5E r ST r SUpSR,SN P RVS0FFl K 
EY TO STORE THE PAGE, 

FA 105 0 PRINT" [D0WN2 P SF JUNCTION 
5 FROM THIS MENU ARE : - 
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26 1060 PRINT" [DOWN] [RV50N,SF] 
l[flVSOFFI - LOAD DATA, [RVSO 
N,SF]7[RV£0FF) SAVE DATA TO 
DISK 

E8 1065 PRINT" |RUSGN,SF]21RV50 

FF] - PRINT DATA IN MEMORY 
6B 1070 PRINT" inVSON -SF) 3 [RVSO 

FF] - SET-UP NEXT PAGE 
F5 1075 PRINT" I RVSON „ SFJ4 [RVSO 

FF] - DELETE A PAGE , [RVSON, 

SF]6|RV30FF] INSERT ONE 
36 1060 PRINT" I RVSON , £F ] 5 [RVSO 

FF] - AMEND A PAUL 
07 109 5 PRINT" [RVSON, SF] 6 [RVSO 

FF] - EXIT 
67 1100 PRINT" [ D0WN2 , SP ) RESS TH 

E APPROPRIATE FUNCTION KEY 
33 1110 GETA$ : IFA$-" "ORA$< " [Fl ) 

"OHM>"lFBJ "THENlllO 
B6 1120 A-A5C(A£)-132 
2C 1130 QNAGOTG300,500,700,90.8 

00,600,650,990 



PROGRAM : PERS , NC . LDR 



29 1 PRINT" tCLR] THIS PROGRAM WI 

LL SAVE THE FILE PERS.MC" 
AB 2 FRINT'ONTO YOUR OWN DISK-" 

00 3 PR1NT"0NCE THIS IS DONE TH 

LOADER PROGRAM " 
9G~ 4 PRINT" IS NO LONGER REQUIRE 

CE 10 BW5rLN=50:SA-4915 2 

5B 20 FOR L-0 TO BL:CX-0iFOR D- 

0 TO 13; READ A i CX~CX+ A i POKE 

SA + L* 16+D „ A :NEXT D 
77 30 PRINT" , " ; rREAD A: IF AXCX 
THENPR INT" ERROR IN LINE" ; LN 

+(L'10} iSTOP 
86 40 NEXT L 

75 50 DATA 32,17,192,165.174.14 

1,0, 100, 165, 175, 141,1, 100, 23 

8,2,100, 1743 
34 60 DATA 96,173,2,100,24,42,1 

70, 173,0, 100, 157,3,100,133,1 

74, 232, 1679 
E2 70 DATA 173,1,100,157.3,100, 

133, 173- 169,0, 133,251, 169,4, 

133 , 252 . 1953 
BA 60 DATA' 169,7, 133,254, 169, 23 

2, 133,253,32,60, 19 2,96, 160,0 

.177.251,2310 
93 90 DATA 145,174,230,174,208, 

2 , 230 , 1 73 . 2 30 , 25 1 , 20B , 2 , 230 , 

252.165,251,2927 
AF 3 00 DATA 19 7,253.206,234,165 

,252, 197, 254,206,228,96,24,4 

2, 170, 189,3,2720 
D2 110 DATA 100,133,251,232,159 

,3, 100, 133,252, 24,165,251, 10 

5,232, 133,253,2556 
90 120 DATA 165,252,105,3,133,2 

54,169,0.133, 174,169,4,133,1 

75,32,60, 1961 
02 130 DATA 192 - 96 , 24,42, 170 , IS 

9, 3, 100, 133, 174, 232,189,3, 10 

0, 133, 175,1955 
3A 140 DATA 76,40,192,32.177,19 

2, 169,0, 133,251, 169,140,133. 

252, 169 , 251, 2376 
C9 150 DATA 166.253,164,254,32, 

216 ; 255,96 ,32, 177, 192, 169,0, 

32,213,255,2506 
39 160 DATA 96,169,7,162,240,16 

0,100.32, 189,255, 169,2. 16 2,8 

, 160, 1 , 1912 
2D 170 DATA 32,186,255.96.169,1 

0,162,237,32, 191 , 192 , 76 , 150 . 

192, 173, 2, 2145 
47 180 DATA 100-133,2,169,255,1 

33 , 253, 1.62,4, 32 .201 # 255 , 230 . 

253, 198,2,2382 
43 190 DATA 166.2,16,1,96,165.2 

53,24.42-170,189,3,100,133,2 



51,232-1643 
22 200 DATA 169,3,100,133,252,1 

62 , 24, 134 . 100 , 160 ,0, 169 , 146 , 

133, 254,32, 1991 
AB 210 DATA 210,255,177,251,133 

, 101,41,127,32,73,193,133,21 

5,169, 146,36,2292 
64 220 DATA 101,16,16,197,254,2 

08.7,169,18,133,254.32-210,2 

55- 165,215,2250 
DF 230 DATA 76,41,193,197,254,2 

40 . 247 ,208, 240 ,32,210- 255 , 20 

0,192,40,208, 2833 
CB 240 DATA 209,169,13,32-210,2 

53- 165 ,251 ,24,105,40, 144,2,2 

30,25 2, 133, 2234 
41 250 DATA 251-196,100,166.100 

, 16, 178.46, 147, 133, 215 .41 .63 

,6,215.36. 1913 
DE 260 DATA 215,16,2,9,128,144, 

4, 166,212,206,4, 112,2,9.64,9 

6,1391 

8B 270 DATA 0,0,0,0,0.0,120-173 
,20, 3, 141.201, 100, 173, 21.3,9 
53 

2F 230 DATA 141,202,100,169,142 

, 141, 20. 3, 169, 193, 141 , 21, 3, 6 

9,96.120- 1749 
OB 290 DATA 173,201,100,141,20, 

3,173,202,100,141,21,3,86,96 
165 197 1824 
9E 300 DATA'201,64,208,6, 141.20 

0, 100- 106- 201, 100,205, 200- 10 

0.240,248, 141,2463 
B9 310 DATA 200,100,201,4.240.2 

1 ,201,3,208,3,76,45, 194,201 , 

5, 206, 1910 
A2 320 DATA 3,76,87,194,201,6,2 

OB, 223,76. 162, 194, 164, 254 . 32 

,215.193.2308 
5D 330 DATA 32,215,193,177,251. 

201 , 62,209 , 247 ,32,6, 194 ,132- 

254,166,253,2623 
ID 340 DATA 24,32,240,255,76.15 

1,193, 136,48,1-96,166,253,22 

4,0. 206,2103 
B2 350 DATA 21,134,254,136,168, 

24 , 32 , 240 , 235 , 1 69 , 0 , 1 33 , 25 1 , 

169,4, 133,2125 
84 360 DATA 252,104,104,76,151- 

193, 198.25 3, 160,39,56, 165, 25 

1,233.40,176,2451 
7F 370 DATA 2,198,252,133,251,9 

6,200, 192,40,240, 1 ,96, 166,25 

3, 224,24. 236B 
El MO DATA 208,11,169.0.166,17 

0, 133,25 3, 133, 25 'I. 76. 229, 193 

,230,253, 16 0,2640 
IE 390 DATA 0,24,165,251,105,40 

, 144 , 2 , 230 , 252 . 1 33 . 25 1 , 96 , 16 

4, 25 4, 32, 2143 
FE 400 DATa'6. 194. 177,251.201,6 

2,208,247,240, 1 43 , 16 2 , 3 , IS 1 , 

251. 157, 220,2703 
3B 410 DATA 100,202,16,246,96,1 

62,3, 169, 220- 100 , 149, 251 , 202 

, 16,248,96-2298 
AA 420 DATA 24,105,40,144,1,200 

,96,32,59,194,56,32,240, 255, 

134. 253,1864 
76 430 DATA 169,0,160,4,224,0,2 

09,7,133,251 ,132,25 2,76, 122, 

194,202.2134 
24 440 DATA 32,60,194,202,16,25 

0, 133,251 , 132,25 2,32,80, 194, 

133,34. 132,2147 
Dl 450 DATA 35,166,253,224,24,2 

40,32, 160, 39, 177 p 34, 145, 251, 

136, 16, 249,2181 
59 460 DATA 165,34,164,35,133,2 

51, 132 ,252, 32, 80, 194, 133, 34 r 

13 2,35, 230,2036 
75 470 DATA 253,166,253.224.24, 

208,224, 160,39. 169.32, 145,25 

1 , 136, 16, 251 ,2551 
51 480 DATA 32,69,194,76-151,19 



3. 32,56, 194,56. 32,240.255- 13 
4,253- 169.2138 
84 490 DATA 7,133,35,133,252.16 
9. 15 2, 133,34, 169, 192,133,251 

,224,24, 240,2281 
26 500 DATA 214,160,39.177,34,1 
45 ,251,136, 16,249, 165,251- 16 
4,252,56, 233,2542 
42 510 DATA 40,176,1,136-133,25 
1,132,252,56,233,40, 176 ,1,13 
6, 133, 34, 1930 
4C 520 DATA 132,35,230,253,165, 

253,201,24,208,215, 240, 171 , 1 
66, 24,42,170,2531 
AB 5 30 DATA 189,3,100,133,174,2 
32,189,3,100, 133,175.232. 199 

,3, 100, 133,2068 
13 540 DATA 251,232,189,3.100-1 

33,252, 173.0,100, 133,253, 173 

, 1,100. 133,2226 
6B 550 DATA 254,206,2,100,173.2 

, 100, 24,42,170, 169,3, 100,141 

,0, 100- 1606 
68 560 DATA 232.169,3,100.141,1 

, 100, 204, 2, 100. 240,6, 173,2, 1 

00, 240. 1835 
18 570 DftTA 4,32,60,192,96,169, 

0, 141,0, 100. 169, 101 , 141,1, 10 

0.96, 1402 
6C 580 DATA 72,24,42,170,169,3, 

100, 133. 253,232, 169,3,100, 13 

3,254, 173, 2070 
9F 390 DATA 1,100,133,175.173,0 

,100, 133,174,24, 105 . 232,141 . 

0, 100, 133,1724 
AE 600 DATA 251,173.1,100-105,3 

,141, 1,100, 133, 252.238,2,100 

,160,0-1760 
DO 610 DATA 198,251,165,251.201 

# 255,208,2, 198,25 2, 196,174- 1 

65-174,201,255, 3146 
8B 620 DATA 206,2,196,175,177,1 

74. 145,251, 165, 174. 197. 253,2 

08.226 , 165, 175-2993 
12 630 DATA 197,254,206,220,169 

,147,32, 210,255. 104,76, 130,1 

92,162,24, 189,2569 
27 640 DATA 0 . 10Q . 157 , 0, 140 . 202 

, 16, 247,173,246,100. 141,25, 1 

40, 169 ,26, 1882 
80 650 DATA 133-253,169,140,133 

,254, 169,0,133,251, 169, 101 .1 

33, 252, 160.0,2450 
ID 660 DATA 177,251,133,174,200 

,, 177, 251, 197, 174.240,22,133, 

174,200. 192,254,2949 
92 670 DATA 208,243, 136,32,37, 1 

96,32,60, 196,173. 1,100,197,2 

52, 16,222, 2101 
IE 6 60 DATA 96,136,240,7,136-32 

,37, 196,32,60, 196, 160,0, 177, 

251, 197, 1953 
C7 690 DATA 174, 209,5, 200, 192,2 

54,208,245 . 136 , 1 32 . 175 , 16 9 , 2 

55, 160,0, 145,2658 
58 700 DATA 253-200,165,175,145 

. 253,200, 165. 174 , 145 , 25 3 , 32 , 

46,196, 169 .3-2574 
4B 710 DATA 133,175,76,230,195- 

132,175, 177, 251 , 145.25 3, 136, 

16,249,230, 175, 2748 
BD 720 DATA 24.165,231,101.175, 

144, 2.230, 252. 133,251,96,24, 

165,253, 101 ,2367 
99 730 DATA 175,144,2,230,254,1 

33,253,96, 162,24,189,0, 140, 1 

57,0, 100,2059 
31 740 DATA 202,16,247,173.25,1 

40, 141, 246- 100, 169 .26,133. 25 

1,169, 140- 133,2311 
3D 750 DATA 252,169,0,133,253,1 

69,101 ,133.254, 16 0,0, 177, 251 

,201 ,255.240,2748 
6D 760 DATA 23.145,253,200,192. 

244,208,243. 132. 175,32,46, 19 

6,32,60, 196,2377 
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29 770 DATA 173,1 ,.100, 197*254 # .l 

6 ,226,96, 132, 175 , 32 ,48 , 196 , 3 

2, 60, 196, 1934 
SF 7B0 DATA 160,1.177,251,133,1 

75,200, 177,251 , 164. 175. 145 r 2 

53, 136,192,255. 2945 
9 9 790 DATA 208 , 249 , 230 , 175 . 32 r 

60, 196 .169,2,133. 175 ,32, 46,1 

96,76, 120, 2107 
BO 800 DATA 0,0.0,0.0,0,0.0,0,0 

,0,0,0,0,0,0,0 
E3 6L0 PRINT" [CLR, D0WN2 , RVSON) P 

RESS A KEY WHEN" READY TO SAV 

E " 

BC 620 GETTCfc: IFK$-" M 'THENB20 

C5 830 POKE 4 3 , 0 ; POKE 44 ,19 2 i POKE 

45,177;P0KE46. 196 : SAVE "FERS 

.MC" ,8. 1 



Letter Writer 




PROGRAM ; LETTER WRITER 



B7 1 PRINT" ICLR.C4J "CHRS ( 8) CHR* 
(14) ;POKE630.255;DLMA$(60) ,T 
SS(6Q) 

4F 2 T1$=CHRSU?6) : FORA- 1T062 : T 

1*-Tlf+CHR$U92) l NEXTA t Tl $-T 

l$+CHR$f 174) 
DO 3 T2S-CHR$<1?3) : FORA- 1T06 2 : T 

2$-T2$+CHR$( 192) t NEJSTA :T2$=T 

2S+CKR$(ia9) 
77 4 y*-" [DOWN24J " 

14 5 SPS-" [SPC61] " 

63 6 L=1;LN=1;TL-1;NA$-"[SN)0 N 
A ME! ":PGKE532SG,0:PGKE532ai , 
0:GOSUB46 

40 7 TFPEEK{65 3)-4THEN64 

B 4 9 GETK J : T FEC J - THEN? 

1C 9 K=ASC(Kf) 

16 10 IFK-13ANDLN<6QTHEN25 

A 7 11 IFK-20THEN27 

AO 12 IFK-94THEN39 

ED 13 IFK-34THENK$-CHR$(94) i GOT 
016 

7B 14 I FK> 1 47THENAS (LN) - " " - GOTO 
171 

Brt 15 IFK>132ANDK<136THEN161 
BE 16 IF(K>3lANDK<94)OR{K>192AN 
DK< 219) ORK= 1 60THEN18 

CF 17 GOTO? 

DC 19 IFLN-60ANDLENC AS (60))=6QT 
HEN? 

6D 19 IFLEN(AS (LN) )-59THEN22 

7F 20 IFLEN{AS(LN) ) -6CTHEN7 

89 21 PR1NTKS" [CI , LEFT] " ; : A$ < LN 

} =A£ C LN> +KS : GOSUB55 s 60T07 
ED 22 PR1NTKS ; :A5fLN) -M(LN)+K| 

? IFLN-60THENPRINT" (CI , LEFT] " 

; s GOT07 

23 23 LN=LN+1:L-L+1;IFL-21THENG 

OSUB59 : GOTO 7 
7B 24 FRI NT: PRI NTSPC (10+LEN(A$( 

LN) ) ) " [CI . LEFT) 11 j :GOSUB55iGO 

T07 

72 25 PRINT" " : LN=LN+ 1 :L a L+l ; IF 
L™ 2 L THENGQ5UB5 9 : GOTO? 

6 A 26 PR I NTSPC ( I0+LEN ( A$ {LN) ) ) " 
I CI .LEFT] " : ;GGSUB55:GOTG7 

45 2? 1FLN-1ANDLEN{ A$ (1) ) =«0THEN 
7 

1? 28 JFLEN(A5<LN) )=GTHEN3Q 

15 29 PRINT" [ LEFT] [LEFT2 . CI , L 
EFT] " ; rASlLN) -LEFTS (AS (LW) ,L 
EN (AS (LN) )~1} ;G0SUB55;G0TO7 

27 30 1FL-1ANDLEN( AS (LN) ) -GTHEN 
34 



E6 31 PRINT " 11 lLN«LN-1 : L-L-l 
9A 32 IFLEN(A$(LN> ) >GTHENA$ (LN) 
-LEFTS (A$(LN) , LEN ( A$ ( LN) ) -1) 



53 



BC 
F7 



BB 



89 



A5 



37 
6E 
35 



El 
C4 

F2 



D6 



7K 



E7 



OL 
A2 

EO 

32 



SF 

D8 
BB 

72 



96 
CS 

B4 

B2 
87 



27 



F6 



Bl 



B6 



01 



33 PRINT" [HOME. DOWN] "LEFTS f¥ 
$,L) SPC{ 10 + LEN £ A$ {LN) ) ) " fCI , 
LEFT ] " ; : GOSUB55 : GOTO? 

34 LN-LN-1 :TL-TL-1 

35 IFLENfAS(LN) ) >0THENA$(LN) 
-LEFTS (A$ (LN) ,LEN( A$ ( LN) J-l) 

36 PRINT" (HOME, DOWN) " : FOR A-l 
TO20 :PRINTSPC(10) 5F$ ■ NEXTA 

37 PRINT" [HOME, DOWN \" ■ FOR A-T 
LTOTL419 i PRI NTSPC ( 10) AS (A) ;N 
EXT A 

38 PRINT" [HOME. DOWN 2 ] "SPCf 10 
+LEN ( A$ { LN) ) ) " [CI .LEFT] " ; :GO 
SUB55:GOT07 

39 IFLN-1THEN7 

40 IFL-1THEN43 

41 PRINT" " :LN=LN-1 ;L-L~1 ;FR 
INT" [HOME, DOWN] "LEFTS ( Y$ , L) S 
PC(10+LEN(A$tLN) ) ) " [CI , LEFT) 

42 GOSUB55:GOT07 

43 PRINT" [HOME, DOWN] " : FOR A- 1 
T02 0 -. PR I NTSPC { 10) 5P$ : NEXTA 

44 LN=LN-1 iTL-TX-1: PRINT" [HO 
HE , DOWN ] " : F 0 R A-TLTOTL+ 1 9 : PRI 
NTSPC(IO) AS (A) ; NEXTA 

45 PRINT" [HOME, DOWN 2 ) "SPC( 10 
+LEN ( A$ (LN) ) ) 11 [CI F LEFT) » ; :GG 
SUB55sSOTG7 

46 PRINT" [CLR, SPC5 , SL.. SE , ST2 
t SE , SR r SSPC , SW j SR ,51, ST, SE , S 
R] 2 [SPC3] ( ESC] ) 1983[SPC3,S 
W , SR , SI , ST2 P SE , SN , SSPC , SB , SY 
, SSPC . SA. SD , SA, SM, SSPC, SW, SR 
,SI ,SG.SH,ST) 

47 PRINT" [SF.S0 r SR,S5PC,SY, 
SO, SU, SR , SSPC , SC , SO ( SM2 , 50 , S 
D,SO,SR.SE) " 

48 PRINTSPCfSjTlS 

49 FORA=lTO20iPRINTSPC(S) r, rS 
r, SPC(62) " IS-] " ; NEXTA 

50 PRINTSPC(.8)T2S:PRINTSPC(2 
2) ,r rCS36J 11 

PRINT5FC(22) " ERVSOP*'] >>^ ( 
SR,SE r S52 J "CHRS (34) " [SC, 
5R,SL] "CURS (34.) " (SF.SO.S 
E 5H , SE , SL P SP ] [ SS , SC . SR . S 
£2^^] <<< [HOME] " 
52 PRINT" [HOME, DOWN2.SR, SO, S 
[DOWN.LEFT4,SC,S0,SL] i" 
G05LFB5 5 
RETURN 

FR1MT" ( HCMF, , T;OWN 2 , RI GHT4 . 
SPC3,LEFT3] "LNCHRS(13) " [RIGH 
T4,SPC3,LEFT3J "LENC A$ (LN) ) +1 



51 
5P, 
ST, 
R] 



m 

53 
54 
55 



56 PR [NT" [HOME] '"LEFTS (Y$,L> 

57 PRI NTSPC ( 10+LEN (AS ( LN) ) ) " 
[CI .LEFT] " : 

58 RETURN 

59 I F LN = 6 1 THE N RETU RN 

60 L-20 : PRINT"' (HOME, DOWN) " ;F 
0RA-1TO20: PRI NTSPC ( 10) SPS ; NE 
XTA 

61 PRINT" [HOME, DOWN] " s FOR A -T 
L+lTOTL+20 : PRI NTSPC C TO) AS ( A) 

: NE XTA i TL -TL * 1 

6 2 PRINT" [HOKE, DOWN! "LEFTS (Y 
$,L)SPC( 10+LE^(ASCLN) ) ) " [CI , 
LEFT) M 3 :GOSUB55 

63 RETURN 

64 PRINT" | CLR) "SPCC26) " [SL.S 
E, ST2.SE, SR] [SW,SR,SI , ST . SE 
,SR] 2 [SH,SE,SL.BP] [ SS , SC 
.SR,SE2.SN] " 

65 PRINTSPC(2&) " [CT28,DOWN] " 

66 PRINT" [SR,SE. ST, SU,SR,SN1 
MOVES THE CURSOR TO THE NEX 

T LINE, AS DOES FILLING A LI 
NE"; 



DC 67 PRINT" WITH TEXT. (DOWN] " 
C4 68 PRINT" ( 3D d SE , G:. , SE , ST ,SE] 
WILL ERASE THE CHARACTER TO 
THE LEFT OF THE CURSOR. 11 j 
BF 69 PRINT" [SI IF THERE IS NO 
TEXT" 

IF 70 PRINT" [SPC7]ON THE CUR REN 
T LINE, IT WILL ERASE THE LA 
ST CHARACTER ON" ■ 

E9 71 PRINT" THE LINE ABOVE . [DO 
WN] " 

34 72 PRINT" [SP DRESSING THE 1 UP 
-ARROW" KEY (NEXT TO [SR, SE, 
SS,ST.SO,SR.SE] > MOVES THE C 
URSOR " : 

58 73 PRINT" TO THE END OF THE" 

57 74 PRINT"L1NE ABOVE, WITHOUT 
DELETING THE LAST CHARACTER 
. [DOWN] " 

F3 75 PRINT" f ST] YPE YOUR TEXT A 
S NORMAL. [5A1LL CHARACTERS 
ARE ACCEPTED, EXCEPT"; 

5 3 76 PRINT" THE [ SC ] OMMODORE " 

C4 7? PRINT"KEYBOARD GRAPHICS, 
THE LEFT- ARROW. AND THE UP- A 
RROW. (DOWN I " 

39 70 PRINT" [SYJOU ARE ALLOWED 
A MAXIMUM OF SIXTY LINES OF 
SIXTY CEJARACTERS. [DOWN) " 

39 79 PR I NTSPC (31) " [SY.SCSU.SR 
) [50,SP,5T,SI ,50,SN,SS] (SA 
.SR,SE] : " rPRI NTSPC (31) " [CT17 
] " 

CI BO PRINTSPCU2) "1 - [£R,SE,S 
T,SU P SR.SNJ fST.SO] fST.£E,S 
X P ST,SPC5J4 - [SM.SO.SV.SEJ 
[5T,SE,5X,ST,5PC7]7 - [SS,SA 
,SV,5E] lST,SE,SX.5T,DOWNi " 

39 Bl PRINTSPC[12) "2 - ISG.SO] 
[ST.SOj [5L,SI ,5N.SE,SPC9)5 
- [SC,SO,SF,SY] tST,SE P SX,ST 
.SPC718 - ESL,SO.SA,SD] [ST. 
SE.SX,ST,DOWN] " 

6E B2 PRINTSPC(121"3 - ISS,SE,S 
T] [ST,5E,SX>ST] ISN,SA.SM,S 
E,SPC6]6 - [SD,SE,SL,SE,ST,S 
EJ [ST,SE.3X,ST i SPC5]9 - [SO 
,SU.SI .ST1 [SP.SR,SO,SG,DOWN 



C6 



27 



BB 



34 
EE 



v.y 



35 

4F 

3B 
<;\> 

FC 

B4 

EC 



3fi 



^0 



fSP.SL.SE.SA 
.SL,SE,SC,ST] 



7D S3 PRINTSPC(30) 
P SS,SE] [SS,SE, 

(1-9) [HOME] " 
B4 FOKEL98,0;WAJT19e. 1 :GETK$ 
;K=VAL(KS) : IFK< 10RK>9THENfl4 
65 ONKGOT066 , 89 P 114,93.93, 10 
5 , 138,129.147 

B6 GOSUB46;PRINT ,fc lKOME.DOWN] 
" "i FOR A-TLTOTL+ 19 ; PR] NTSPC (10 
)A$(A) ; NEXTA 
B7 GOSUB55 -QkYYO'S 
BB PRINT' 1 [HOME, DOWN 1 "LEFTS CY 
S,L) SPC(10+LEN(A*(LN) ) ) "[CI, 
LEFT) " f :GOSUB55:GOTO? 
89 PRINT" f CLR. SO, SO] [ST .SO] 
[SL,SI ,SN,SE] " ! GOSUB159 ! IFK 
1$-"N ,I THEN64 

9 0 PRINT" [CLR, SE)NTER LINE N 
UMBER : " : :GOSUB149 

91 LN-N:TL=LN:L-1: IFLN>40THE 
NTL-41 : L=LN-40 

92 GOT086 

93 F$-" [SC ,50, SP, SY] [ST.SE, 
SX . ST ( " : F^O 

94 ' IFK=4THENFS=" [SM.SO,SV,SE 
] [ST,SE,SX,ST]"-F=1 

95 PRINT" [CLR] "FS : GQSUB158 ; I 
FK1S="N'THEN64 

96 PRINT" [CLR, SE INTER LINE N 
UMBER OF START OF BLOCK : ";: 
GOSUB1 49 : SL-N : PR I NT 

97 PRINT ' [SE INTER LINE NUMBE 
R OF END OF BLOCK : " : : GOSU 
B149:FL=N:PRINT 

98 PR) NT" (SE ]NTER NEW START 
LINE NO, FOR BLOCK = " : :GOSU 
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24 



69 



OF 



2£ 

46 

2F 
AC 



83 



74 

2B 
77 



FF 



4C. 



ac 



95 



9E 



09 



E7 



87 

OA 
01 
59 
; 4D 
B9 
F9 

67 

19 
AO 
E3 



D7 



33 



Al 



59 

69 

7B 

|7& 
65 

21 
83 



B149 s NS=N- PRINT 

99 IFELOLTHENPRINT" [CLR.SEJ 
ND LINE LOWER THAN START LIN 
E, (ST]RY AGAIN. " 

100 I FEL< SLTKENFORA- 1TO2000 : 

:ji:xtA:GOT09 6 

101 IFEL-SL >60-N5THENPRlNT" ( 
CLR, SB] LOCK WILL NOT F1T.":F 
OR A- 1 T02000 l NEXT A : GOTOB6 

)\\2 FORA-OTOEL-SL : T5$ (A) -A$ ( 
SL + A) : IFF-1THENA$(5L+A) -"" 

103 ME XT A : FORA-OTOEL-SL 3 AS ( N 
S+A)=TS$(A] :TS$ (A) NEXTA 

104 GOTO B 6 

105 PRINT" [CLR,SD,5E,SL,SE,S 
T , SE ) ( ST . SE , SX , ST ] " : GOSUB1S 
8: IFK1$-"N"THEN64 

106 PRINT" [CLR P SD] O YOU WISH 
TO DELETE A BLOCK , OR THE E 

NTIRE SHEET? ( f SB] / [SS] ) " 

107 GETKlS : IFK1$<>"B"ANDK1$< 
> !, S"THEN1Q7 

109 IFK1$="S"THENRUN 

109 PRINT" f CLR . SE] NTER START 
LINE OF BLOCK TO CLEAR : 11 : : 

GOSUB149 ;SL=N: PRINT 

110 PRINT" [SE] NTER END LINE 
OF BLOCK TO CLEAR ! ";:GOSU 
B149 jEL-N 

111 IFEL<SLTHENPR1NT" (CLR.SE 
JND LINE LOWER THAN START LI 
NE. [ ST ] RY AGAIN, " 

112 IFEL<SLTHENFQRA-ITO2000; 
NEXTA iGOTO109 

113 FORA-SLTOEL; A£(A}="" : NEX 
TA ; G0T0E6 

114 PRINT" [CLR, 3S , SE, ST1 [ST 
,SE,SX,ST] [SN,SA.SM,SE,HOME 
,DOWN2,SC] URGENT NAME: "NA$ j 
G0SUB158: 1FK1$-"N"THEN64 

115 PRINT" E CLR. SC1URRENT NAM 
E: "NA$ 

IIS PRINT" [DOWN, SE INTER FILE 
NAME FOR TEXT. { [£M] AJtTMUM 1 
6 CHARACTERS) " 

117 PRINT" [DOWN] > 

< "CHR$ ( 13) " [UP . RIGHT2 

] ": 

118 POKE 198 . 0 : WAIT198 r 1 : GETK 
$ :K-ASC(Kt I 

IFK-13TMEN123 
1 FK-20THEN127 
IFK>31ANDK<94THEN123 
GOT01LB 

IFLEN(NNS) -16THEN118 
PR I NTKS ; : NMS-NMS +K£ ; GOTO 



1 10 
120 
121 
122 
123 
124 
118 

125 NA$=NM£:NM£-"" : IFNAS-""T 
HENNA*-" [SN!0 NAME I " 

126 GQTOS6 

127 IFLEN(NMS) -0THEN118 

12fl PRINT" [LEFT] . [LEFT] " ; : NM 
$=LEFT$ (M$, LEN (NM$) -1) ; GOTO 
IIS 

129 PRINT" [CLR ,SL, SO. SA,SD] 

[ ST , SE , SX . ST, HOME . DOWN 2 .SOU 
RRENT NAME: "NA£ : G0SUB158 ■ I F 
K1$-"N"THEN64 

130 PRINT" 1 CLR, SI INSERT TAPE 
CONTAINING TEXT FILE, AND P 

OSITION FOR fSL,SO,SA,SD] . " 

131 PRINT" [DOWN, ST] HEN PRESS 
[SR,SE,ST,SU,SR,SN] TO CONT 

I NUE . " 

132 GETK 1 $ s I FK 1 $< >CHR$ { 1 3 ) TH 
EN132 

133 PRINT" (CLR, SL]0ADIN<3 . 11 
! FORA-1TO2000 ! NEXTA 

134 IFNAS-" [SNJO NAME! "THEKO 
PEN1 ,1,0 :GOT0136 

135 OPEN1 , 1.0. NA$ 

136 FORA-1T06G: INPUT*!, A3 ( A) 
; NEXTA : CLOSE 1 

137 L-l:LN-l;TL-l:GOT08« 

138 PRINT" [CLR, SS,SA.SV,SE1 

f ST , SE , SX , ST , HOME . DOWN 2 . SC] U 



B8 



F2 

IS 

7A 

SI 
DE 



65 
5B 



6 A 



4D 
OD 



07 
ID 

EE 

BA 



A6 
D5 

13 
96 

2D 



2E 
1A 
72 



36 



EF 
14 

Kk 
10 



BA 



F9 



7C 



15 



4B 



RRENT NAME : "NA$ : GOSUB 158 1 IF 
K1$-"W M THEK64 

135 PRINT" [CLR, SI INSERT TAPE 
AND POSITION FOR [SS,SA,SV, 
SE] . " 

140 PRINT" ] DOWN, ST) HEN PRESS 
1SR,SE,5T,SU.SR.SN] TO CONT 

I NUE. 11 

141 GETK1 $ ; I FK1$< >CHR$ ( 13 > TH 
EN141 

142 PRINT" [CLR.SS] AVING. .. 
FORA-1TO20Q0 : NEXTA 

143 1FNAS-" [SN]0 NAME2 "THENO 
PENI P 1, Is GOTO 143 

144 OPENl.l, lpWAS 

145 FORA-lT06ChPRINTtl . CHR$ ( 
34] A${A) CHR$(34) : NEXTA ; CLOSE 
1 

145 GOT086 

147 PRINT" [CLR. SO ,5U, SI , ST J 
[5F,SR,S0.SG,SR,SA,SM] " : GOSU 
BISBi IFK1S="N"THEN64 

148 CLR ; PRINT" |CLR] "CHRS (9) C 
HRS(142) rPOKE53280,12:POKE53 
2B1, 15 i END 

149 NS-"" 

150 P0KE198 , 0 : WAIT 198 , 1 : GETK 
1$: IFK1$-CHR$ f 13) ANDLEN (N$J > 
0THEN15 6 

15 1 I FK1 *-CHRf 1 20) THEN1 54 

152 IFK1$< ,, 0"ORK1S>"9"ORLEN( 
N$) =2THEN15 0 

153 N$=N$+K1$:PR1NTK1$ ; :GOTO 
150 

154 IFLENCNJ) >OTHENPRtNT" [LE 
FT] [LEFT] " ■ : NS = LEFT$ (N$ r LEN 
tN$) -1) 

155 GOT0150 

156 N-VAL(N$) s IFN< 10RN>60THE 
N150 

157 RETURN 

158 PRINT" [DOWN, SA] RE YOU SU 
RE? { :SY] / [SN1 ) " 

159 POKE 198 . 0 : WAIT196 . 1 :GETK 
IFK1$< >"Y"ANDK1$< > "N "THEN 

159 

160 RETURN 

161 IFLENC A$ JLNJ) -0THEN7 

162 IF LEFTS {A* (LN) , 1)=" "THE 
NA3MLN) -RIGHTS t AS ILN) , LEN ( A£ 
(LN) )-l) :GOT016 2 

163 IFRIGHTStAS (LN) , 1) "TH 
ENAf (LN)-LEFT* ( AS (LN) . LEN ( A$ 
{ LN ) ) - L) ;(30T0163 

164 IFLENt A$fLN) > -60THEN7 

165 IFK-135THEN171 

166 TS$ (1) -AS (LN) : AS(LN) i 
|PK=134THEN169 

167 FORS=1TQINT(60-LEN(TS£ (1 
) ) J/2 3 A$(LN)=AS(LNJ+ kl " : NEXT 
S 

169 AS(LN}-AS (LN) +TS*(1) :TS$ 
(U = "":GOT0171 

169 F0RS-1T06 0-LEN(TSI(1) ) : A 
$ (LN) -AS (LNW S ' " :NEXTS 

170 A S ( LN ) - A$ ( LN) +T5$ ( 1 ) ; TS$ 
(1)-"" 

171 PRINT" [ HOME x DOWN] "LEFT$ { 
YS.L) SPC(IO) BPS" (HOME P DOWNJ " 
LEFT*(Y$,L)SPCaQ)A$(LN) " ICI 
.LEFT] " ; 

17 2 G05UB55 ^G0T07 



PROGRAM: LETTER PRINTER 



PLEASE WAIT. " : FORA-1TO200Q 
i NEXTA 

17 5 OPEN1, 1 # 0:FORA=1T060: INPUT 

#1,A${A) :NEXTA ; CLOSE 1 
92 6 PRINT" [CLR J PREPARING TEXT 

FOR PRINTING. PR I NT" [DOWN] P 

LEASE WAIT. " 
7E 7 FORA-ITO6O1 A* (0) -At (A) :A$« 

A) - "" 

7E 8 FORB-1TOLEN(A$(0>) :BS-MID$ 

(AS (0) ,B. 1) 
C6 9 IFBS-CHRS [92) THENA$ ( A) -A$ ( 

Al+ M #" :G0T013 
99 10 IFBS-CHRS (94) THENA J ( A) -A$ 

(A) +CHR$(34) :GOT013 
BA 11 IFB$-"#"THENAS (A)=AS(A) +C 

E^IRS(27) +" [SRJ "+CHR$(0) +BS+CH 

R9i [ 27) +'• [SR] "+CHRS(3^ ;G0TO13 



94 
3E 
60 

CI 



FA 



59 



12 A$(A) -AS f A) +BS 

13 NEXTB , A 

14 PRINT" [ CLR 1 PRINTING TEXT. 

is OPEN I ,4,7: PRINTttl . CHRS (27 
) "(3 "CHRS (27) "B"CHR$(27) "3"CH 
HS (18) ; 

16 FORA-1T060:PRINT#1 , " [SPC1 
0] "AS (A) 3 NEXTA 

17 PR] NT* 1 : CLOSE 1 : PRINT" [CLR 
] FINISHED, " :END 



Basic Workshop 




PROGRAM: BAS-WRK5HP . LOR 



B7 1 PRINT" I CLR, C5 ] "CHRS (9) CHR$ 
f 142) :POKE532S0 P 0;POKE532ai , 
0iDIMftS(6Q) 

12 2 PRINT" [HOME] INSERT THE TAP 
E CONTAINING YOUR TEXT." : PR I 
NT" [DOWN] THEN PRESS RETURN." 

27 3 POKEl^e,0:WAIT196,l jGETKS : 
IFK$< >CHR$ ( 13) THEN3 

46 4 PRINT" (CLR) LOADING TEXT. . . 



2C 1 PRINT" ! CLR . DOWN) THIS PROGR 

AM WILL SAVE A COPY OF" 
06 2 PR1NT"BASIC WORKSHOP ON YO 

UR OWN DISK OR TAPE" 
3D 3 PR1NT"0NCE THIS IS DONE YO 

U SHOULD LOAD RASIC" 
C4 4 PR INT" WORK SHOP AS DETAILED 

IN THE MAGAZINE, 1 
4E 5 PRINT"THIS LOADER PROGRAM 

WILL NO LONGER BE" 
1C 6 PRINT^NEEDED . " 
6 2 7 PRINT" IF USING TAPE MAKE S 

URE THAT YOU HAVE" 
51 8 PRI NT"CHANGED THE ,0.1 TO 

.1,1 AS DETAILED IN" 
Al 9 PRJNT"THE REM STATEMENTS." 

30 10 BL-127;LN-50;SA=49152 

5B 20 FOR L-0 TO BL i CX-0 ! FOR D- 

0 TO 15 : READ A : CX-CX+A : POKE 

SA+L* 1 6+D , A : NEXT D 
77 30 PRINT", " ;: READ A: IF AXCX 
THEN PR I NT' 'ERROR IN LI NE" ; LN 

+ (LM0) iSTOP 
66 40 NEXT L 

E6 50 DATA 76 . 0 , 194 . 234 . 234 > 2 34 

, 234, 234,234, 234, 234 r 234 r 234 

,32, 159, 255.3056 
&5 60 DATA 165,197,240,57,201,4 

r 208,6,238, 134. 2,76 , 128, 19 2, 

201 ,5, 2054 
34 70 DATA 206.23,162,0,173,134 

,2, 15 7, 0,216, 157,0. 217, 157,0 

,21B, 1321 
63 BO DATR 157,0.219,222,206,24 

1 ,76 . 126. 19 2,201.6,208,6,238 

.33, 20B, 2353 
1A 90 DATA 76.126,192,201.3,208 

,6 , 238 . 32 . 206, 76 . 129, 192, 173 

p 141, 2,2004 
B5 100 DATA 41,1,201,1,206.3,76 

, 13, 192, 173, 141.2.74,74,41, 1 
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AG 110 DATA 201,1.208.36,165.19 
7,201 , 10, 208 , 7, 16 2,0, 169 . 3,7 
6,0,1646 

86 120 DATA 193 , 2 0 1 , 2S . 208 , 24 , 1 

62,4, 169,5 ,76,0,193,234, 234., 

234.234, 2199 
CD 130 DATA 162.128,160,0.136,2 

08. 253. 202,208, 250,76.49,234 

.201 , 20,208, 2495 
OB 140 DATA 7,162,10,169,5,76,0 

, 193. 201 ,18,206.7. 162. 16, 169 

,9, 1412 

A9 150 DATA 76.0,193,201.14,203 
,7. 162, 26, 169 ,4,76.0, 193, 201 
,26 . 1556 

Ae 160 DATA 203,7.162,31,169,4, 

76,0. 193.201, 29,208,7,162,36 

. 169. 1662 
ID 170 DATA 5.76.0,193,201,33,2 

08,7, 162,42, 16 9,5,76,0, 193,2 

01,1571 

88 180 DATA 42.208.7,162.48.169 
,4,76,0,193,201,38, 208,7, 16 2 
.53,1578 

77 190 DATA 169,4.76,0,193,201, 
41 ,209.7. 162.58. 169,4.76,0,1 
93. 1561 

60 200 DATA 201.62.209,31.162,6 

3, 169,4,76,0, 193,76,49,234,2 

34,234, 1996 
A4 210 DATA 133,190.160,0,169.6 
■"" 3,193,153,119/2, 232.200.201, 

42. 208. 244,233? 
65 220 DATA 76.128.192,201,17.2 

08.7, 16 2,68. 169.6,76.0. 193,2 

01,13. 1717 
95 230 DATA 208,7,162,75,169,4, 

76 ,0. 19 3,201 ,22.208,7, 162,80 

. 169,1743 
03 240 DATA 4.76.0.193,201,31.2 

OS, 195. 162,85, 169,6,76.0. 193 

,65 . 1664 

29 250 DATA 63,67,42,71,79,83,8 
'5 , 66 ,42,67,76,79,83,69,42,76 
.1110 

29 26 0 DATA 79,65,68,34.36,34.4 
4,56 .42.80,69,6 9,75,42,71 ,79 
,943 

91 270 DATA 84.79.42,67.72.02.3 
6.40,42,73,78,80,85,84,4 2,76 
, 1 06 2 

D8 280 DATA 73 . S3 . 84 . 42 , 79 , 60 . 6 
9,78.42.80.79,75 .69,42,76.79 
. 1 1 30 

02 290 DATA 65,68,42,82,69.84.8 
5 r 82 , 78 . 42 , 83 , 65 , 86 , 69 , 4 2 , 6 8 

,1110 

AO 300 DATA 65,84,65,42.86.69.3 
2,73.70.89,42,78,69,87,42,25 
5, 1296 

E4 310 DATA 0,255.0.255,0.255,0 
, 255, 158 .66, 65, 03, 73, 67, 32.8 
7,1651 

01 320 DATA 79,82,75,93.72.79,8 
0 . 3 2 , 65 , 67 , 84, 73 , 86 , 69 , 1 3 , 67 
, 1106 

4B 330 DATA 79.80.09.02.73,71.7 
2,84.32,40,49.57,56,56,41,32 
, 99 3 

F6 340 DATA 66,82,73,65.78,32,7 
1 . S 2 , 65 . 7 2 . 65 . 77 , 46 , 42 , 79 , 76 
, 1071 

9F 350 DATA 68,42,42,169,0,141. 

32. 206.141,33, 208,16 2,0. 16 0. 

0, 136, 1542 
68 360 DATA 234,2 34,234,208,250 

, 202 i 208 , 247, 32 . 159 . 255 . 3.65 , 

197,240,236,96,3197 
31 370 DATA 16 2,0.109,168.193,3 

2,210,255, 232, 201 ,46, 208. 245 

, 120,162,26,2449 
23 380 DATA 160,194,142,20.3,14 

0, 21 , 3. S8. 96, 165,197,201,57, 

208, 13, 1708 



5A 390 DATA 173,141.2,74,41.2,2 
01,2, 208.3,76, 2 26 „ 25 2 , 173 , 1 4 
1, 2, 1717 

9 9 400 DATA 74,74.41,1,201.1,20 

8,110. 165, 197.201,43. 200,7. 1 

62,92, 1785 
89 410 DATA 169,3.76.0.193.201. 

40, 208. 96, 169,3. 133, 198, 162, 

0, 169, 1840 
F5 420 DATA 2 22.193,157,119.2,2 

32 , 201 , 42 , 208 , 245 , 160 , 3 , 200 , 

177.43,208,2412 
ED 430 DATA 251.152.56,101.43,1 

60,0. 145,43, 133.45, 200, 165.4 

4. 145.43, 1726 
AF 440 DATA 133,46,160,0.177,45 

, 133,47.200, 177,45.170,5,47, 

240,9, 1634 
0A 450 DATA 134,46,165,47,133.4 

5, 136. 240,235,24, 165,45. 105. 

2, 133,45,1700 
28 460 DATA 133.47,133,49.165,4 

6, 105,0, 133.46, 1 33,43, 133.50 
76 128 1425 
BB 470 "DATA 192,234.234.234.234 

. 234,76, 13. 192, 17 3, 141.2,74, 

74,41 , 1 . 2149 
D9 480 DATA 201,1,208,242,165,1 

97, 201 ,54,208,236. 162,0, 169 . 

0,4,157,2225 
83 490 DATA 0,200,189,0,5,157,0 

. 201. 109 ,0.6, 157.0,202,189.0 

, 1495 

12 500 DATA 7.157.0,203.189.0.2 

16, 157.0, 204. 189,0.217, 157,0 

,205. 1901 
Dl 510 DATA 189.0.218.157,0,206 

. 189.0.219. 157,0.207.232,224 

,0,208,2206 
C8 520 DATA 203,162,0,189,0,196 

, 157. 0,4, 189,0, 197, 157,0,5. 1 

89 ,16 48 

44 530 DATA 0,198,157.0,6.189,0 
. 199. 157,0.7.232.224.0,208. 2 
27, 1804 

20 540 DATA 240,66,32.227,193.1 

62,0, 189,0,200. 157 , 0, 4 , 189 , 0 

,201.1860 
BF 550 DATA 157,0,5,189,0,202,1 

57,0,6, 189,0,203,157,0,7. 189 

, 1461 

71 560 DATA 0,204,157,0,216,189 

,0, 205, 157,0, 217, 189 . 0, 206, 1 

57.0.1997 
16 570 DATA 218,109,0,207,157,0 

,219, 232,224,0. 200. 203.76, 12 

1 . 195 . 234 . 2483 
FB 580 DATA 234,234.234.234,162 

.0,169,15.157,0,216,157,0,21 

7 r 157,0,2186 
DF 590 DATA 218.157.0.219.232,2 

08,239 , 173, 134,2,133,250, 173 

,32.208,133,2511 
71 600 DATA 251, 173. 33,208, 133, 

252,76, 18, 195,165,250, 141 , 13 

4,2, 165, 251,2447 
7C 610 DATA 141,32,208,165,252, 

141,33,208,76, 13,192,0.0,0,0 

,0, 1461 

55 620 DATA 0 . 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0', 0 

,0,0,0,0,0,255, 255 
9D 630 DATA 0,255,0,255,0,255,0 

,255,0, 255 ,0,255,0,255,0, 255 

,2040 

27 640 DATA 0, 255 . 0, 255,0,255,0 
,255.0,255,0, 255 , 0 . 255 . 0 , 255 
,2040 

E9 650 DATA 0,255,0.233.0,255.0 
, 255 . 0 , 255 , 0 . 255 ,0,255,0, 255 
,2040 

33 660 DATA 0,235,0.255,0,255.0 
,255,0. 255,0. 255 , 0 , 255 , 0 , 255 

. 2040 

G5 670 DATA 0,255.0,255.0,255.0 
,255,0,255,0, 255 .0. 255,0.255 



,2040 

EB 680 DATA 0,255,0,255,0,255,0 
, 255 , 0 , 25 5 , 0 . 255 , 0 , 255 , 243 , 6 
6,2094 

3F 690 DATA 32,32.32,32.32,32.3 
2, 2, 1 . 19,9, 3,32, 2 3, 15, 18, 346 

03 700 DATA 11,19,8,15.16,32,8, 
5,12, 16, 19,8,5,5, 20,46,245 

31 710 DATA 32,32,32, 32,32,32,3 
2 , 32 , 32 , 3 2 , 32 . 32 , 32 , 32 , 32 , 45 
,525 

D8 720 DATA 45,45.45,45,45,45.4 
5 , 45 . 45 , 45 , 45 , 45 , 45 , 45 , 45 , 45 
,720 

54 730 DATA 45,45.45,45,45.45,4 
5 , 45 , 32 , 32 , 32 , 32 , 32 , 32 ,32,32 
,616 

53 740 DATA 32.32.32,32.32,32,3 
2,32. 32,32.32.32,32,32.32, 32 
r 512 

E5 750 DATA 32,32,32,32,32,32,3 
2, 32.32. 32.32.32, 32,32, 32, 32 
,512 

AO 760 DATA 32,32,32.32.32.32.3 
2,3 2,3, 20, 18, 12,32.43,32. 1 .4 
17 

AF 770 DATA 32,61,32,1,19,3,32, 
3 2.32. 3 2,32,32,32,3 2,32, 3 2,4 
68 

D9 780 DATA 32,32,32,42.3,15,12 
, 15,21 , 18,19,42. 32,32, 32,32, 
'11 1 

70 790 DATA 3,20,18,12,32,43,32 
, 2, 32,61, 32,7, 15, 19,21,2.351 

C4 800 DATA 32,32,32,32,32,32,3 
2,32, 32,32.32,32. 32.32, 32,32 
.512 

C5 810 DATA 32,32,32,32,32,32.3 
2,32,3,20. 18,12.32,43, 32,3.4 
19 

E4 fl20 DATA 32.61,32.3,12,15,19 
,5,32,32,32,32,32,32,32,32,4 
35 

EO 830 DATA 32,32,6,49.32,61/32 
,3,21 , 18, 19, 15, 18,32,32,32,4 
34 

E7 840 DATA 3,20,18,12,32,43.32 
,4, 32,61,32, 12, 15,1,4,34,355 

45 850 DATA 36,34,44,56.32.32,3 
2,32.32. 32.6.51 .32,61 ,32, 20, 
564 

63 860 DATA 5.24,20,32.32.32.32 
, 32,3. 20. 18, 12.32.43,32,5,37 
4 

30 B70 DATA 32,61,32,16,5,5,11. 
3 2,32,32,32.32,32,32,32. 32,4 
50 

DD 880 DATA 32,32.6,53,32.61,32 
,19.3,18,5,5.14. 32, 32,32.408 

50 890 DATA 3,20.18.12.32,43.32 
, 7 , 32 . 61 . 32 , 7 , 15 , 20 , 15 , 32 , 38 
1 

60 900 DATA 32,32,32.32,32,32,3 
2,32.32, 32,6,55. 32.61,32,2,5 
08 

9B 910 DATA 15,10,4,5,18.32,32. 
32,3,20,18,12,32,43.32,8.324 

1C 920 DATA 32,61,32.3,8,18,36, 
40,32. 32,32,32.32,32,32, 32,4 
86 

46 930 DATA 32,32,32,32.32.32,3 
2,32.32,32,32,32,32. 32,32, 32 
,512 

10 940 DATA 3,20,18.12.32,43,32 
,9,32,61, 32,9, 14, 16, 21, 20, 37 
4 

82 950 DATA 32,32,32,32.32,32.3 
2,19,8,9,6,20,12, 15,3, 11 ,327 

91 960 DATA 32,61,32,16,1.21,19 



YOUR COMMODORE march 1989 
76 



LISTINGS 



► 



,5, 3, 20,18, 12,32,43,32, 12, 35 
9 

B4 970 DMA 32.61,32,12.9.19,20 
.32,32. 33,32/32,32, 32, 32,32. 
47 3 

BO 9G0 DATA 32.32,32,32,32,32,3 
2 P 32 . 32 P 32 r 32 r 32 , 32 r 32 , 32 P 32 
P 512 

4A 990 DATA 3 , 20 r 18 , 1 2 r 32 P 43 r 32 
, 15 ,32,61 ,32, 15 r 16 .5 r 14, 32 r 3 
82 

8C 1000 DATA 32,32,32,32,32,32, 
32 P 32 . 32 P 32 P 32 r 32 , 32 r 32 , 3 2 r 3 
2,512 

56 1010 DATA 32.32,32.32.32,3?, 
32,32,3,20, 18- 12,32.43, 32, 16 
,432 

96 1020 DATA 3 2.61,32.16,15,11. 
5 , 32 , 32 , 32 . 32 , 32 , 32 , 32 , 32 , 32 
,460 

FF 1030 DATA 32,32,32,32,32,32, 
32, 32,32,32,32.32,32,32,32, 3 
2,512 

DS 1040 DATA 3,20.18,12,32,43.3 
2,17.32,61 .32, 12. 15,1 ,4,32, 3 
66 

6B 1050 DATA 32, 32,32,32,32, 32, 
32,32,32,32, 32 , 32,32, 32 ,32,3 
2,512 

57 1060 DATA 32,32,32.32,32,32, 
32, 32,3,20,18, 12, 32,43,32,16 
,434 

96 1070 DATA 32.61,32,18.5,20,2 
1 . 18, 14.32, 3 2. 32,32, 32,32,32 
,445 

29 1060 DATA 32,32,32,32,32,32, 
32, 32.32, 32,32.32.32,32,32, 3 
2,512 

11 1090 DATA 3.20,18,12,32,43,3 
2, 19,32,61,32, 19, 1 ,22.5,32,3 
83 

C5 1100 DATA 32, 32, 32, 32 P 32, 32 P 
32.32,32, 32,32. 32,32, 32,32,3 
2,512 

74 1110 DRTA 32. 32, 32, 32,32 P 32. 
32. 32.3,20, IB, 12,32,43,32, 20 
,436 

99 1120 DATA 32,61,32,4,1,20,1, 
32,32, 32, 32, 32, 32,32 P 32,32 P 4 
39 

5B 1130 DATA 32,32.32,32.32,32. 
32 P 32 , 32 . 32 , 32 . 32 , 3 2 , 32 , 32 , 3 
2,512 

71 U40 DATA 3,20,18,12,32.43,3 
2.22,32,61,32,22,5, 18, 9,6 P 36 
7 

F5 1150 DATA 25,32,32,32,32,32, 
32,32, 32,32,32, 32, 32, 32, 32,3 
2,505 

AA 116 0 DATA 32.32,32.32,32.32, 
32,32.3,20, 18, 12,32.43,32,43 
,459 

9 A 1170 DATA 32,61,32,15,12,4,3 
2, 32,32,32,32, 32 , 32 . 32 , 32 . 32 
,476 

95 1180 DATA 32,32,32,32.32,32. 
32,32,32,32,32,32,32,32,32,3 
2,512 

6B 1190 DATA 3.20,18,12,32,43,3 
2.45,32,61,3 2. 14,5, 2 3,32, 32, 
4 36 

21 1200 DATA 32.32,32,32,32.32, 
32,32.32,32,32,32.32, 32 . 32 , 3 
2,512 

62 1210 DATA 32,32,32.32,32.32, 
32,32.3,20, 18 .12.32,43,32,30 
,446 

E8 12 20 DATA 32.61 . " : : .m. h , ] 2. : 
, 19,8.5,3. 20.32.32,32.32. 351 

C7 1230 DATA 32,32,32,32.32,32, 
32,32,32, 32,32, 32 , 32 , 32 , 32 , 3 
2,512 

54 1240 DATA 3,20,18,12,32.43,3 
2,3,2,13, 32,43.32,31. 32,61 ,4 



09 

87 1250 DATA 32. 19.5, 19,5. 20,32 
^ !3 2 P -3* 2 r -3 2 i 3 2 f 3 2 ^ -3 i2l ■ ^ 2 p 3 2 r -3 2 » 
419 

E5 126 0 DATA 32.32.32.32,32.32, 
32, 32, 32,32. 32, 32,32,32,32,3 
2,512 

EF 1270 DATA 32,32,32,32,32,32, 
32, 32, 32,32,32, 3 2,32,32,3 2,3 
2,512 

26 1280 DATA 32,32,32,32,32.32, 
32, 32, 32,32,32,32,32, 32, 3 2,3 
2,512 

IE 1290 DATA 40 , 3 , 4 1 , 32 , 49 , 57 p 5 
6 ,56,32,2, 18,9,1, 14 ,32, 7,449 

31 1300 DATA 18,1,8,1,13,32,32, 
32,32,32,32,32,32,32, 32,32, 3 
93 

C4 1310 DATA 32.32,32,32,32,32, 
32 . 32 , 32 . 32 , 32 , 32 . 32* 32. 32,3 
2,512 

4D 1320 DATA 32,32,32,32,32,32. 
32,32,32,32, 32,32, 3 2.32,32,0 
,480 

67 1330 REM ** GET READY TO SAV 
E PROG 

B2 1340 PR! NT r PR I NT" IRVSON1 PRES 
5 ANY KEY TO SAVE BAS 1 L" WORK 
SHOP" 

45 1350 GETK$ : I FK£- 11 "THEN1 35 0 
F3 136 0 P0KE43 , 0 : POKE44 , 19 2iPOK 

E45 , 0 : POKE46 , 200 ; SAUE^BASIC 

WORKSHOP", 8, 1 
60 1370 REM CHANGE .8,1 TO ,1,1 
IF USING A CASSETTE 



Head for Home 



o. 

I 



PROGRAM r HEAD FOR HONE 



10 REM LUDO HY KIR* HCN I L LflN 

eq fokeb5305 r 113: colors ie p g 
30 fdke55301 , 57 ; pr i nt "cclear3 c □ 
143cqob3Cc 4 3cru50N3 ,? : bys44se 
40 print "i down! c r jght 3 c ru50ff3 c 

YELLJU JCs UJJCs I]Cs till* E 3 C s C 

ICs OJCs n: Cs SHs D3Cs FKs T 
:ts wDts fljrs rhb Ei, riKs 
djcs e:cs r:cs aic^ Kits n 

N3Cs E3Cs U3 Cs Z3Cs EJCs A3Cs 

l:cs a]C3 N3Cs d: h 

50 COL0R1, IB: CHAR ,4, 20, "Cs P3Cs 
D3Cs R3 Cs THUS K3Cs E3 Cs C3t 
s 03Cs M3Cs rQCs 03Cs d:cs D3Cs 

R3Cs ED IS Cs DDCs R3 Cs P3Cs 
L3Cs U3Cs S3/4":CQL0R1 , ]0 
BO CHAR, 11, IE, "BY Cs K] IRK Cs n 
3CCs M 3 I LL AN " : COLOR 1,14: CHAR , ? , 
lB/'Cs SIOUND BY Cs 9 } ERN I E ts 
M3CC s M3ILLAN" 

70 CHAR, 15 p SS, "C WHITE! Cs L3Cs 0 
3Cs A3Es D3Cs UCs N]Cs GJ ,3 ;FDK 

Eeia p o 

SO F-RNDC-TT ~) : FI3KE45 , 55 ; FDKE4B , 
S4:CLP 

90 DLDAD'X -BASIC' 3 



PRHGRAFI : L.BASIC 



5 SYS 1DL5:CLR 

10 FORF-01 9TOBB7 ■ READNEj FDKEF p □ 

20 NEXT : DATA IS n AS , DO p B5 , El , 55 , D 
B, B5,d3 



30 DATA85, 05,80, fig, 00 ,86,03 , B5 P 
DO.CS^B, 10, 01,60, EB, £0,04,00, F 
4,1=15,01 ,85,03,50 

40 DATAA5, 00 ,fl9 p GB ,90,90,09^9, 
AO , BO , BO 

50 DATADDpEB, EO.CB.DO.Ti ,GO, AS, 
DO , A3 ,6B 

60 DAT ABD , 5B , DA , A3 , AO , 3D , 58 , OE , 
E6 a E0,C9,D0, Fl,60 

70 AA-0: AB-0: AC-O: AD-O; AE-O; AF- 

0 : flG-0: H-0 : I -O : H-0 : U-0 : P-0 : N-Q ! 

R-E39: TRAP1B30 

BO CS C O 3 - "CGREEN : ":C$C1)-"C RED 3 
B -C'BC?^- , TPURPLE3";Cffit3?-"tc 7] 
PLS( DJ - "TI RST * PLSt 1 3 -"SECOND 

p 

90 FLSt2)- ,, TNIRD i ' : PLS C 3 5 - "AND L 
AST" 

100 S$-"Cc P:Cc Al t DOWW3 1 LEFT 3 E 

LEFT3CC D3Cs -3CUPD" 

110 MCOI-^CRUSDNICC P:CRUSOFF3 

Cs A3CDOUN3CLEFT3CLEFT3CRUSOM1C 

c D:CRUSOFF3Cs B3CUP3 " 

180 ASCl)-"Cs C3Ci Ul C DOUN D C LEF 

T3CLEFTHS E3Cs F3CUP]^' 

130 AECe?- F, Ca CXs D3CDOWN3CLEF 

T3 CLEFT] Cs G:Cs H3CUPl n 

140 ASt33- p, Cc R3Cc UI3C DOUN3C LEF 

T3 c left: c rubon: cc d: c husdff : c c 
h:cup: " 

150 D£f 1 ;- ai CDOWN3CLEFT1 CLEFT 
3 C LEFT: Cs 03 C DOWN: CLEFT: C LEFT 
: CLEFT] 

1B0 D£te:i- ,, Cs 03 CD0WN3CLEFT:C 

left:cleft3 cdown: cleft: cleft 

3 1 L EFT 3 Cs 03" 

170 D$C3)-"Cs 03 CDOWNI3CLEFT3C 
LEFT3 CLEFT3 Cs 03 C DQWN3 CLEFT3C 
LEFT 3 CLEFT 3 Cs 03" 
190 D5C4>- !P C5 03 Cs □ 3 C DOWN 3 CLE 
F E JT -LKFTJn-KFTJ C DOUN 3 C LEFT 1 C 
LEFT1CLEFT3C s 03 C$ 03" 
190 D*CS3-"Cs 03 Cs Q3C DOWN 3 CLE 
FT3CLEFT3 CLEFT3 Cs 03 CDO«JN3CLE 
FT3CLEFTDC LE:FTDts 02 ts 03" 
500 DSC63- ?l Cs 03 Cs O3C00UJN3CLE 
FT3CLEFT3CLEFT3C3 Q3 Cs Q3CD0UN 
3CLEFT3CLEFT3CLEFT3CS 03 Cs 03" 
810 DIIIA^O, 33 a H^i:3, 33 ,0^3,3}, 
D5SC3 1 3),ri5:C3 1 3 3 a S^C33 B E?iC3,3) , F 
>-C3 p 3> 

220 DiriG^<:3 r 3>,HT:C3, 3 3 . l^C 3 a 3> a 
J^CS.SJ^^CS, 33 ,L\d 3,3i fc N^C3 p 33 
230 UULB: 1FPEEK CHI B 3 -E55THEN33C 
540 F0Pr-137STOl3B53 POKET , 0 : NEX 
T 

550 S0UNDl p a5O 3 15: CHAR p 3,55^ "CI 
3P3C3 W3OUL0 YOU LIKE I N5TPUCT I 
QNS? [ YELLOW 3 C 1 301 1 S Y3/Cs N3C1 
323 "zPO^ER.O 

260 GETNSt 1 FNS<> 11 Y "ANDNS <> ,J N"TH 
EIST2BO 

270 C0L0R1, 10:SY31585r PRINT'TCL 

BftRDCOOB]" 

EBO 3 F'JS- "N" THEN34D 

E90 CD LORD P ID , 4 : C0LOR4 ,11,5 

100 SY5155E:SYS1B4B: SYS 18770 

310 CDLDR1 ? 5 : CHAR p B , E4 p " PRESS 1 

RETURN ' TO CQNT I NUEC H0ME3 ,fc r POKE 

R,0 

3E0 GETK^YNS; T FNS<> CHfiB C I 3)THEN 
BED 

330 SCNCLR 

340 COLDR4 ,3,5: COLDRO h E : SYS155E 
:SYS1BB1 

3S0 CHAR.S^/'Cc E3HDU PIAfHlY PLA 
YERS PLEASE C2-45 C1303CC 03C13 
23 CLEFT 3 " : POKER, 0 

3B0 GETKEYNS : I FNS< n e ,? ORNS> "4"TH 
EN3BO:ELSEPRIMTNS:NU-UALCN5) : U- 

370 PRINT : FOHF-OTQNU : 2-3400+40* 
F 

390 PRIWT ,b Cc 73CRIGHT3tRIGHT_CR 
I GHT ] PLAYER "F+l "IS": P0KE3, ZftND2 



YOUR COMM0D0KK march 1*9 



LISTINGS 



55: FDKE4 , Z/£55r POKE 5 , PEEKC3 3 
390 POKES, C2-lDg43/S56 
400 5YS13E0G: DO: XSCF3-X3CF)+CHR 
SCPEEKCZ)+S43 :2-2+l : LOOFUNTILPE 

110 FDRF-OTDNU 

4^D KCFJ-INTCRNDCl)"CNU + m : IF5 

>.CKCF)>-lTKEN4aO : EL5ESSCKtF3i-l 

: NEXT : PR I NT H C DOWN} 15 

430 FORZ-DTDNU : NE C Z 5 -XE C KC Z ) 3 : S 

«Z]>-0:U*C? 5-9? NEXT? FDRF-OTDNU: 

t FF-ETHENFRINT " j 

44Q PR]NTC$(FV C RU5GN3 C LTP3 "SS 

"CDDUN3CRM3DFF: - "LEFTS C NK< F 5 + 

",63 p r NEXT : PR INT 
4S0 PRlNT'TRIGHTDCDOUNDCGREENin 
DUES ARE MADE BY PRESSING THE N 
UMBER" 

ISO PRINT": RIGHT 3 MATCHING YOUR 
COUNTER , OR t P t TO PASS": POKER 
0 

47D CHflR,9,B3 p "CREDJ: j RE55 r 1301 

RETURNC 1323 TD START" 

4B0 GETNS; I FNSO CHRS £ 13 3THEN4BG 

: ELSESCNCLR r CDLOPO ( E : CDLDRH ,3,5 

:SYS1716 

490 DOrFDRL-OTONU 

SOD POKEEOB ,113:^,0 3 : POKEEOS > M* C 

L, 13 

510 PDKtelO l H%CL i e)iPOKEEll f n%C 

L ,33 

MO 5Y5B1S : IFPEEKC£133-1B0THEIM1 

OBO 

530 CHAR, 33,7, " C BLACKJ C c Q3Cc □ 

Kc Q3tc once o:cc qdcleftjclef 
tjcleftxleftjclcftxleftjcrusd 
n3"+necl3 

540 5DUND1 h B9Q, 10; CHAR, 35,9 >C£C 
L 3 + "E RUSON J " + "C RUSDFF3 " : A-0 : 

OA: E-A:D-1 

550 DO : COLOR 1 , 12 , S : F0RF-1TD I NT £ 
RWDC1?*15>+15: J-INTCRND(15«6J+1 
SGD 1 FRNDC 1 5< . 11IHENJ-5 
570 SDUND3.850, 3 

5B0 I FD> 40RU- 1 THEN J - 1 NT C RNDt 1 5 ■ 
SlJ + l 

590 CHAR S 31, 17,DSC J 5 : U0L1 : SOUND 
2,620,? 

600 UDLe r NEXT:C-C+J: IFJ<>5TKENE 
XIT 

BIO SYS83l:E-FEEKC33: IFE-1THENE 

x] r 

620 D-D+IeCHAH^I + O^B, "C BLACK 3 
C PUS0N3 6 C RUSDFF3 " r S0UND1 , 950 , 10 
: FDRF-1TD50: NEXT : SOUND 1 t 950 , 10: 
LDDF 

530 FRINTCSCL3 

540 IFDM0RE-1THENBGD; EL5EP0KEE 
1E ? C 

550 P0KE3 , 1 :SY5ieeil:E-PEEKC3) 
E50 IFE-1THEN50UND1 r SlG, lOrSOUN 
n \ , E5E , 10 : F0HF-1TD40O : NEXT ; GOTO 
10BO 

B70 CHAR, 33, 14. T1303CC OK13E3 
C BLACK 3 C c 03 L RUBQNJ " • SOUND 1 B9D 
,7 

GBO FDRJ"1TDD: CHAR , 35, 14, M CRU50 
FF ]'C BLACK ][c DKRUSON: 11 :G-0 
S9a TFC>-BTHENA-5:C-C-B:G-1 : ELS 
EA-C 

?0D GETKEVA5: I FAS" "P" THEN 1070: E 
LSE I FA£< " 1 "0RAS> "4 " THEN? 70 
710 O-UALC AS? ; H-M^CL, D-l 3 
7E0 lFK-0ANDA<>ERND6-aTHEN77D 
730 n-lB03E:N-Sa: P-H: IFPJ4QTHEIM 
MM5178- P-P-40;N-B 
740 U-n+N*L+2*CP-l? r IFH-0TKCN7B 
0 

750 1-31 13+4P*PEEKCU+15+PEEKCU) 
760 I-PEEKC 13 s IFI-BGANDD-10RI-7 
0ANDO-eORI-7EANDD-3ORJ -11GAND0- 

4THEN7B0 

770 SOUND 1 , 100, 10: ECJT0700 

750 IFH-DANQG-lTHENA-1 

780 CHAR , 35 , 1 4 , M C RUSDN3 C BLACK 3 ,h 



«-AE; D^O-l 

900 IFH> -41ANDH+AO45THEN770 

SlO IFH+A>4STHFN770 

GEO nftCL.O^nflsCL.DJ+ft 

830 na-C5CL5+ASCD>:F-FREC0) 

B40 PDKEA-^CL.O) p C^CL,0^:PDKEB5iC 

L,0>.D^CL p O) jFDKEE^CL^) p G^CL,0 

7 

BSD PDKEFSCL.OD ,D^CL,0? ;FDKEH?:C 
L.O? t J^CL P D>:PDKEI3SCL 1 03 , D>.CL,0 

) 

BED POKEK^CL, DD .N'^L.Ol : FDKEL"i C 

L a oi b d>.<;l,o>2CDLOR1 ,b 3 G:u-iselb 

+B*L+£*0 

B70 CHAP a PEEKCU} p PEEKCU+1 > , "CRU 
SOFFJCc Q3Cc D3 tDOWNDC UEFT3 CLEF 
TILc DHc OD" 

BBO FDRF-H+lTDM^-t L , 0!) : ! FF>44THE 
N15S0 

890 H-lE03E:F«F-i:N-a2: IFP>3STH 

EN,1-lE17e:P-P-4O:N-0 

900 V-n+N*L+2*P 

310 AA-307E+4Q»PEEKCU+1J+PEEKCO 

9E0 A6-AA-10E4 : ^C-PEEKC AA> : AD-P 
EEKCABJ 

930 AE-PEEK(AA+1) : AF-PEEKCAA+40 
3 ;fiB-PEEK(AA+413 : CHAH p PEEK C V 3 . P 
EEKCU+1 > , ns 

940 SDUND1 ,750,5 : FDRT-1T0 100 : NE 

XT 

350 I FF-rtV C L p O 3 THE W3S0 
9BD POKEAA, AC: POKEAB, AD: POKEAA+ 
t,fl£; FDKEAB+1 t AD: PDKEAA+40, AF : P 
0KEAB+4D , AD 

970 PDKEAA+41 r AG ? FQKEAB+41 ,AD 
BBO NEXTF 

930 mCL.DS-flflsBfetl^EU-AB 
LOOO C^CL.DJ-ACjD^CLpO-AD 
1010 ESCL, D5-AA+1 : f "^CL, G^-AB+1 
1020 G^£(L P D>-AE: J3fcCL f 0>-AF: N^CL 
,D}-AG 

1030 H7tCL F O>-AA+40r I ^t: L , D 3-AB+4 
0 

1040 K"iCL,0)-AA + 41 : L^CL,03-AB + ^1 
1 

105Q IFAG-GGDRAG-7DDRAG-7EDRAG- 

11GTHENBOSUB1330 

10GO FDKEEBBO + J F IS: POKE 398 4-"- J , 1 
07: NEXT 

1 070 CHAR ¥ 33 , 14 , " t RUSOFF 3 C BLACK 

ILc QJCc OlCc QD ,1 :CHAR 1 3S 1 5B I "C 

c ODCc 03 C c DDCc Qllc CHCc D3" 

10B0 PDKER a 0 : NEXTL 

1030 K"1:FDRT-0TDNU:K-K"CU^CT? 

<4) 

1100 NEXT: I FK< NUTHENLDDP 

1110 FOSF*STO 12 j CHAR f 3E p F t *C BLA 

CKJCRUSDN3 C RUSDFF ] " 

USD NEXT: CHAR, 34 a B , ■ C PUSONII GAfl 

EC DQUN3 C LEFT DELEFT 3 CLEFT 3 C LEFTD 

C!303DUERC13E3 H 

1130 CHAR, 33, 12, "PRE55C DOWN 3 CLE 

FT3CLEFT3 CLEFT3CLEFT3 ANYCDDUN3C 

LEFT3 CLEFT 3 CLE FT 3 KEY " 

1140 FOKER , O: GETKEYAS : SCNCLR: PL 

SCNU^-PLSC3J : FDRF-OTDNL . G*F *5 

1150 PRINTCffiClil^CF^ i iFORT-BTGB* 

4 

1150 PR1NT H CRUS0N3 

CRUS 

OFF : NEXT : PR 1 NT " C UP : r UP 3 C UP 3 C 

RIGHT J " ; AS C F 3 j 

1170 BE-PLSCF3+" HOME WAG 

U«CF3 3 

11 BO CHAP. la-LENCBSS/e.O+l, "LRU 
S0N3 ,K + BS 

1190 CHAR , 5 j G+3 , " C RUSON 3 YOU UJER 
E SENT BACK n -5TRiCG!t:(;uf^CF? n + " 
TIMES 1 " r PRINT^C D0UN3 *' - NEXT 
leOO I FNU< 3TKENSYSB70 ; IFNU<ETHE 
NSY5B5E 

1E10 POKE 1333 j PEEKCE04B) ■ CHAR, 0 
,E1, "CI 303 CONGRATULATIONS "+NSC 
U%C03 3 



,A»3+iG0 



1EE0 FDRF - 1 EBE4TD 1 3194STEPS 
1E30 A-PEEKCF^+PEEK£K+1 >*P5B 
1E40 B-PEEKCF+E3+PEEKCF+3>*E5B 
1E5D C-PEEKCF+4D :SOUNDL , A,C:SOU 
ND2,B,C 

12GD NEXT:KEY1 , LHR3«:i3B? :KEY£,C 
HRSU373 

1270 HE-CHRSC3H3 

laaa char , 3^3, "Ci38JCGREEN3 3 ^n 
7: "+ns4-FE" + nE+" td extt m 

1290 POKER, 0: GETKEYAS 
1300 DNINSTRC M CF7 3CFED ' 
TOiego, 1310, 1320 
1310 FDKEB1E, 255 : F?UN70 
1320 SY5G55EG 
1330 X^NflfeCL.OJ; Y-D%CL,03 
134D JFX-540HX-97DRX-103DRH>40T 
HENRETURN 

1350 IFX-6GTHENX-0:EL3EIFX-70TH 
ENX-1 : ELSEIFX-72TKENX-B:ELBEIFX 
-116THENX-3 

1360 1FY-53THENY-D:EL5EIFY-50TH 
ENY-1 ; ELSE I F Y-G0THENY-E : ELSE I FY 
-45THENY-3 

1370 IFY-LTHENRETUPN 

13BD f □FF"700TD2OO5TEP-10O ■ SDUW 

□ 1 , F p 5 : NEXT : SQUNJ31 , 50, EO: SOUND! 

.959,5 

1390 U-lEElS+a"Y + E*X:BSCYD-S3tCY 

y+i 

1400 CHAR r PEEK €U3 , PEEKC 0+15 t CSC 
Y3+ASCX3 

1410 A^CL f 03-A«Y p X>f A%tY,X>-0 
14E0 B^CL.D^-B^tYpXi^B^CYpXS-O 
1430 C^CL.O^-C^CY.X^C^CY^-O 
1440 D"i<L h D3-D\C Y , X 3 : D : ; C Y , X 5 "O 
14S0 E^CL p D3-E?iCY, X D = C Y , X 3 -0 
14G0 F%CL,Q3-F*CY t X}sF*CY p XJ*0 
1470 G^CL.O^-G^CY.X? : G«Y,X3-0 
14GD H^CL a D3^C¥,X3 :H^CY, X3*0 
143D [^CL l .03-I%CY l X)s »CY,X>*0 
1S00 J5sCL B D3-J%CYpX)s J7SCY, X3-0 
1510 k^CL,O3-X%CY p X3:KXCY*X?»0 
1S20 L«L f O3-L^CY,X>:L%CY,X3-0 
1530 N?;CL,0>-N^CY, XD sN%CY s X3-0 
1540 rtetY, X}-0: GOTD1330 

1550 f-ie?4e+a-L+2*a 

155S P0KE20B p f1*CL,0) : POKEEOS 

(L,n 

155S P0KEB1O , M?£C L , 25 = P0KEE1 1 a 
CL.3J 

1557 GYSB3.5: I FPEEK C 2135 < 180THEN 
1530 
15G0 
1570 
IT 

1SBQ LDDP:ld?<CK3-L 

1530 FDR2-400TD700STEP1S:SOUND1 
, Z, 4 

1GUD FDRT-300T029TEP2tSDUND1,T, 
2 

1GL0 NEXTT, 2:U-U-1 

1GE0 SOUND^.GSO.SiSDUNOl^esO, 5; 

SDUND 1 , 9QD , 8: CHAR, PEEK CU} ,PEEKC 

u+i^^srGoTogeo 

1G30 TRAF1530- RESUME 



K-C:DD 

IFW--sCK><>BTKENK-K + l ■ ELSEEX 



Sprite Library 




PROGR AH : GEEin < D I SPLAY 



S5 IB REM*** ****** 
»*■*• 

31 E0 REM* SPRITE L1RBARY DISFL 
AY * 



YOUR COMMODORE march 1989 



LISTINGS 



GEOMETRIC 



CB '10 REM- "***""«* — 

7E 50 FDKE55 , 0 : FDKE5B , 40: X-X+l t 
IFX™1THENLDAD M 6E0METR I C" ,8, 1 

5 a 6B u-53e4B: print ,? :cls::blu:c 

EBCDIC SCR :CHEUDF7 TO 5TDF AN 
I MAT ION M 

70 POKEU+81 , .15i POKEU+23, 10: P 
OKEU-^59,- 12 : FOKEU+32 K 1 : POKEU+ 

46 B0 POKEU+40,0: POKEU+41 ,0:PQK 

EU+42,0:FDKEU, 70:PDKEU+1, 150 

:FDKEU+2, 120: PQKEU+3, 150 
bA 30 POKEY+4, 170: PDKEV+5, 150: P 

QKEU+5, 24B : FOKEU+7 , 150 
3D 100 INPUT "tHDni [ CO JSTART 5PR 

I IE" • S: INPUT "END 5PfiITE Jfc ; E; I 

NPUT "DELAY Jh ■ □ 
4C 110 FDRSP*STOE:FQRT-0TDD: NEX 

T : PR I NT " C HOM J " T AS C 23!J N, SPR I TE 
NO.-";SP:PDkE2040,SP 
0? 120 POKE504:t,SP:FDKE2045,5F; 

PQKEE043 i SP:MEXT:GETK5: IFKS- 

"CF"? 3 "THEN 100 
3D 130 GQTDH0 



PKHnRAfl: GEOMETRIC DATA 



AF 10 Rln**™»*««**«****»***< 

BE B0 REM* SPRITES LIRBARY 
# 

30 30 REM* — 

m 

DA 40 REM* GEDnETRlC SPRITES 
* 

CE 50 REM* BA5 1 C DATA LOADER 
35 60 REH* SPRITES DESIGNED BY 

74 70 REn* HIKE BENN 

C5 B0 R£rt«»****"**********«* 

DD 90 BL-B55 :LN-19Ct ;5A-1024 
0 

B9 100 FDR L-0 TO BL;CX-0:FOR D 
-0 TO 15 

4F 110 READ A: IF A> B55THENPR I NT 
"NUPIBER TO LARGE" ;LN+CL*10> : 
STDP 

99 150 CX-CX*A: PDKE SA+I>16+D,A 

: NEXT D 

D9 130 READ A: IF A><CX TKENPRIN 
T " ERROR IN LINE" ; LN~KL*10J : S 
TDP 

37 140 NEXTL : POKE43 , 0: FDKE44 , 40 

:POKE45 i 0: PDKE4B.SB 
84 150 SAUE " GEOriETR I C " , 8 , 1 : END 
EF 160 REM********************* 

3B 170 REM TAPE USERS WILL NEED 
TD CHANGE DEVICE N 

UnEER FROI1 a TD 1 
FE 160 REh"** ** ************* * * 

2D 190 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
|1 200 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
01 210 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
71 220 DATA 0,6,0,0,0,0,0,0,0,0 

,0,0,0,0,0,21,29 

75 B30 DATA 0,0,0,0,0.0,0,0,0,0 
,0,0,0,0,0,0,0 

E3 B40 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
79 250 DATA 0,0,0,0,0,0,0,0,0,0 



,0,0,0,0,9,0,8 
72 260 DATA 0,29,0,0,0,0,0,0,0, 

0,0,0,0,0,0,251,275 
5C 270 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
4A ?H0 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
41 290 DATA 0,0,0,0,0,0,0,0.5,0 

,0,20,0,0,34,0,62 
7E 300 DATA 0,55,0,0,183,128,1, 

255 , 192 , 0, 0 , 0 , 0, 0 , 0, 50 , 7BS 
A4 310 DATA 0.0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
92 320 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,3,8 
SB 330 DATA 0,0,20, 0,0, 34, 0,0, S 

5,0,0, 158, IBB, 1,0,64,440 
SB 340 DATA 2,0,32,4,0,18,8,0,0 

, 16,0,4,63,255,254,21 ,663 
OB 350 DATA 32,0,0,48,0,0,40,0, 

0, 36,0,0,34,0.0, 33,233 
34 350 DATA 0,0,32,126,0,32,54, 

0,32, 32,0, 32, 16,0,32,0,408 
98 370 DATA 0,32,18,0,32,32,0.3 

Sr.64.Op3E, 125,0, 33, 0,0,401 
90 360 DATA 34,0,0,3^,0,0,40,0, 

0,49, 0,0, 32,0,0,20,210 
09 330 DATA 53,255,254,15,0,4,8 

,0,8,4,0, IB, 2, 0,32, 1,563 
E7 400 DATA 0, E4, 0, 1£8, 128, 0, 65 

,0,0,34,0,0,20,0,0,8, 447 
CS 410 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
BE 420 DATA 0,0,0,0,3,0,0,0,0^ 

,0,0,0,0,0, 132, 132 
74 430 DATA 0,0,2,0,0,6,0,0,10, 

0,0, 16,0.0,34.0,70 
C5 440 DATA 0 , 6E , 0 , 0 , 1 30 , 0 , I , 5 , 

0,2,2,0,4.2,0.6,21? 
AF 450 DATA 2,0,4,2,0,2,2.0,1,2 

,0,0,130,0,0,68,211 
62 450 DATA 0,0,34,0,0,18,0,0,1 

0,0, 0,6, 0,0,2,0, 70 
04 470 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
72 4B3 DATA 0,0,0 

,0,0,0,0,0,8,8 
78 430 DATA 0,0,0 

,0.0,0,0,0,0,0 
EE 500 DATA 0,0,0 

,0,0,0,0,0,245 
8C S10 DATA 0,0,0 

,0.0,0,0,0,0,0 
F3 S20 DATA 0,0,0 

2,0,0,34,0,0,34, 130 
13 530 DATA 0,0,34,0,0,62,0.0,0 

,0,0,0,0,0,0,0 
13 S40 DATA 0,0,0 

.0,0,0,0,0. 131 
Bfi SS0 DATA 0,0,0 

,0,0,0,0,0,0,0 
EA 560 DATA 0,0,0 

, 128,0, 126, 128 
28, 1273 
BE 570 DATA 128,0 

, 125, 3, 126, 12B 

,0, 1273 

580 DATA 0,0,0 



FB 
F4 
E0 
A3 
E9 
Dl 
03 
07 
4F 



530 DATA 0,0,0 
,0,0,3, ESS, 224 



0,0,0,0,0,0,0 

0,0,0.0,0,0,0 

0.0,0,0,0,0,0 
P4P 

0,0,0,0,0,0,0 
0,0,0,0,0,0, E 



96 

0,0,0,0,0,0,0 
131 

0,0,0,0,0,0,0 

255, 12B.0, 12B 
0,128, 126,0, 1 

128, 12B.0, 12B 
0,255, 128,0,0 



0,0,0,0,0,0,0 
0,0,0,0,0,65,65 

0,0,0,0,0,0,0 
2,484 

500 DATA 0,32,2,0,32,2,0,32, 
?, 0,32,2,0,32,2,0, 170 
610 DATA 32,2,0,35,5.0,32,2, 
0,32,2,0, 32, 2 ,0,35, 502 
620 DATA 3,255,224,0,0,0,0,0 
,0,0,0,0,0,0,0, 132,614 
530 DATA 0,0,0,0,0,0, IS, 2SS, 
248,8,0,3,8,0,8,8,558 
540 DATA 0,9.8,0,8,8,0,8,8,0 
, 8 . B , 0 , B , B , 0 . 60 
B50 DATA B, 8,0, 6,0,0,8,8, 0,8 
,8,0,8,8,0,8,88 
6S0 DATA B, 0,B, 8,0,3, IS. 25S, 
SHB ,0,0,0,0,0,0, 225 , 77S 



DB 670 DATA 0,0,0,0,1,132,0.14, 

64,0, 112,64,7, t2B,64,4,6S0 
DE G80 DATA 0 , S4 , 4 , 0 , 64 , 4 , 0 , 64 , 

4,0,64,4, 0,54,4,0,340 
A3 580 DATA 54,4,0,64,4,0,64,4, 

0,64,4,0,64,4, 0,64,404 
AA 700 DATA 3,128,54,0,112,64,0 

, 14,64,0,1, 132,0,0,0,83,735 
3H 710 DATA 0,0,0,0,3,0,0,5,0,0 

s 9 , 0 , 0 , 1 7 , 0 , 0 , 34 
B2 720 DATA 33,0,0,65,0,1,129,0 

,1,1,0,1,1,0,1,1,234 
80 730 DATA 0,1,1,0,1,1,0,1,123 

,0.0,GS, 0,0, 33,0,232 
8F 740 DATA 0,17,0.0,9,0,0,9,0, 

0,3,0,0,0,0,245,279 
CB 750 DATA 0,4,0,0,12,0,0,20,0 

,0,20,0,0,20,0,0,76 
20 760 DATA 36,0,0,36,0,0,36,0, 

0,BB,0,0,BB,0,0,6a, 312 
BB 770 DATA 0,0,69,0,0,65.0,0,3 

6,0,0,33,0,0,33,0,544 
LJLi ?H0 □ A T A 0,^0,0,0,^3,0,0,20, 

0,0,15,0,0,4,0, 14,90 
06 790 DATA 0,8,0,0,8,0,0,8,0,0 

,6,0,0,8,0,0,40 
EC B00 DATA B , 0, 0 , B , 0, 0, B , 0, 0, B 

,0,0,6,0.0,8,46 
52 610 DATA 0 , 0 , S , 0 , 0 , 6 , 0 , 0 , S . 0 

,0,0, 0,0,0,0,40 
30 HP0 DATA 0,3,0,0,8,0,0,3,0,0 

,9,0,0,9,0,215,255 
ED 630 DATA 0,32,0,0,46,0,0,40, 

0,0,40,0,0,40,0,0,200 
HB 840 DATA 36,0,0,35,0,0,33,0, 

0,34,0,0,34,0,0, 34,210 
BO 850 DATA 0,0,34,0,0,34,0,0,3 

6,0,0,36, 0,0,36,0, 3 ?G 
83 850 DATA 0,40,0,0,40,0,0,40, 

0,0,48,0,0,35,0, 14,514 

30 B70 data a , 0 , 0 , 0 ^ uu , 0 , 0 , 00 , 0 

,0,7^,0,0,56, 0,0,316 
23 890 OAT A GG, 0 , 0, 65 , 0, 0, 64 , 19 

5 , 0 , 64 . 64 , 0 , 64 , 64 , 0 , 54 , 707 
38 890 DATA 64 , 0 , 64 , 64 , 0 , B4 , 64 , 

0,54, 192,0,65, 0,0,66,0, 707 
5C 800 DATA 0,68,0,0,75,0,0,60, 

0,0,86,0,0,0,0,53,369 
69 910 DATA 0,0,0,3,128,0,2,115 

,0,5,14,0,2,1,224,2,490 
E7 520 DATA 0,32,2,0,32,2,0,32, 

2,0,35,5,0,35.2,0, 170 
88 930 DATA 32,2,0,35,5,0,32,2, 

0,32,2,0,35,2,0, 32,202 
B2 840 DATA 2,1,132,2,14,0,2,11 

5,0,3, 126, 0,0,0,0,62,516 

©a 950 data 0,0,0,0,0,0,15,255, 

S43,9,0.9,e,0,B.e,55B 
48 860 DATA 0,8,6,0,9,9.0,8,8,0 

,B,B,0 ? B,3,0,B0 
46 870 DATA 3,3,0,9,6,0,6,8,0, B 

,8,0,9,6,0,6,66 
0A 300 DATA 6,0,8,8,0,8,15,255, 

543 , 0 , 0, 0 , 0 , 0, 0 , 22 , 572 
44 980 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,31,535,555, 16,554 
14 1000 DATA 0,4,13,0,4,6,0,8,8 

,0,8,8,0,8,4,0,73 
E2 1010 DATA 16,4,0,16,4,0,16,5 

,0,32,2,0,32,2,0,32,158 
C6 1020 DATA 3,255,224,0,0,0,0, 

0,0,0,0,0,0,0,0,253,735 
59 1030 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
1A 1040 DATA 0,0,31,255,252,15, 

0,4,3,0,9,4.0, 16, 2, 0,59B 
6A 1050 DATA 35 , 1 , 0 . 64 , 0 , 120 , 1£ 

8,0,65,0,0, 157,0,0,0,0,545 
2B 1050 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0, 162, 162 
Al 1070 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
EF 1080 DATA 0,0,0,0,0,0,0,0,53 

,255,534, IG, 0,4, 14,0,606 
DF 1090 DATA 36,1,193,192,0,62, 



YOUR COMMODORE march 19, 
79 



LISTINGS 



BF 1100 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0, 170. 170 
09 1110 DATA 0.0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
2A 1130 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,63,255,318 
03 1130 DATA 254, 0,0,0,0,0,0, 0, 

0,0,0.0,0,0,0,0,254 

53 1140 DATA 0,0,0,0,0,0,0,0,0, 
0, 0,0,0,0,0, 156, 156 

Dl 11 50 DATA 0,0,0,0,0.0,0,0,0, 

0,0,0,0,0,0,0,0 
38 11B0 DATA 0,0,0,0,0,0, 0,0, 0 1 

63,0, 1, 133, 133, 14,0,453 
AF 1170 DATA 56,16,0,4,53,355,3 

54,0,0,0,0,0,0,0,0,0,548 

09 1100 DATA 0,0.0,, 0,0,0,0,0,0, 
0, 0,0,0, 0,0,355,555 

33 1138 DATA 0,0,0,0,0,0,0,0,0. 
0,0,0,0,0,0,0,0 

43 1300 DATA 0 , 0 , 0 , 355 , 158 h 0 , 15 

B. 136, 1,0,54,3,0, 33,4,0,74? 
95 13-10 DATA 16,8,0,8, IB, 0,4, 35 

,0,3,63,555,554,0,0,0,650 
03 1530 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0.0,145,145 
35 1530 DATA 0,0,0,0,0,0,0,0,0, 

0,0. 0, 3,555,554,5,484 
4F 1340 DATA 0,35,3,0,35,2,0.33 

,4,0, 16,4,0,16,4,0, 144 
AF- 1350 DATA 16,8,0,8,8,0,8,3/0 

,B, 16,0,4, 16,0,4,104 
BE 1360 DATA 31,555,355,0,0,0.0 

,0,0,0,0,0,0,0,0,76,514 
37 1370 DATA 0,0,0,0,0,0.15,255 

,348, 8*0, 6,0,0,0.0,559 
FE 1280 DATA 0.0,6,0,6,6,0,8,8, 

0 , 8 , 6 , 0 , B , 0 . 0 , 80 

54 1330 DATA 8,8,0,0,0,0,0,0,0, 
8,8,0,8, 8,0,0,60 

F3 3 300 DATA 9,0,0,0,0,8,15,355 

,348,0,0,0,0.0,0,033,773 
5B 1310 DATA 0,0,0,1,133,0,1,56 

,0,1,7,0,3,0,334,3,485 
6D 1330 DATA 0,38,3,0,4,4,0,4,4 

,0,8,4,0,8,8,0,74 
DD 1330 DATA 8,6,0,15,9,0, IB, IB 

,0,16, 16,0, 33,38,0,35, 196 

34 1340 DATA 3, 138, 33,0, 115,64, 
0, 14,64,0, 1 , 133,0,0,0, 174, 7B 
4 

4A 1350 DATA 0,6,0,0,30,0,0,34, 
0,0,05,0,0, 138, 138, 1,364 

75 13S0 DATA 0,64,2,0,33,4,0,16 
,9,0,0,10,0,4,33,0,165 

03 1370 DATA 3,16,0.4,6.0,8,4,0 

, 16,3, 0, 32, 1,0,64, 157 
85 13B0 DATA 0,138,138,0,55,0,0 

,34,0,0,30,0,0,8,0.144, S27 
D0 1330 DATA 0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , B , 0 , 0 , B 
4? 1400 DATA 54,0,0,65,0,1,138. 

1 33 , 6 , 0 , 48 , 54 , 0 , 15 , 33 , 0 , 562 
El 1410 DATA 3,34,0,13,5,0.49,1 

, 138 , 1 33 , 0 , 65 , 0 , 0 , 54 , 0 , 538 

35 1430 DATA 0 , B , 0 , 0 , 0 p 0 , 0 , 0 , □ , 
0,0,0,0,0,0, 134, 142 

C8 143S DATA 0,0,0,0,0,0,0,0,0, 

0,0, 0 ,0,0,0.0,0 
CE 1440 DATA 0,0,0,0,0,0,0,0,0, 

247, 150,7,0, 113,56,0,558 
SC 1450 DATA 14,7,0,113,0,347,1 

20,0,8,0,0,0,0,0,0,0,516 

55 1450 DATA 0,0,0,0,0,0,0,0,0, 
0, 0 ,0, 0 P 0 , 0, 43 ,43 

10 1470 DATA 0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0 

11 1480 DATA 0,0,0,0,0,0,0,0,0, 
0,0, 0,0,0, 63, 355, 318 

76 1430 DATA 254,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,354 

0A 1500 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,5,5 
78 1510 DATA 0,0,0.0,0,0,0,0,0, 



0,0,0,0,0,0,0,0 
HE 1550 DATA 0,0,0,0,0,0,8.0,0, 

347, 138,7,0, 113,56,0,555 
0C 1530 DATA 14,7,0,113.0,347,1 

38,0,8,0,0,0,0,0,0,0,515 
51 1540 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,5,5 
C7 1550 DATA 0,0,0,0,0,0.0,0,0, 

0,0,0,0,0,0,0,9 
8B 1550 DATA 54,0,0,55,0,1,158, 

133 , 6 , 0 , 46 , 34 , 0 , 1 3 , 33 , 0 , 565 
E4 1570 DATA 3,34,0,13,6,0,48,1 

, 136, 133,0,65,0,0,54,0,533 
86 15B0 DATA 0,8,0,0,0,0,0,0,0, 

0,0,0,0,0,0,353,361 
08 1530 DATA 0,8,0,0,30,0,0,34, 

0,0.65,0,0, 138, 12B, 1 , 3B4 

34 1600 DATA 0,64,3,0,33,4,0,15 
, 8, 0,0, 15,0, 4, 32, 0,186 

76 1G10 DATA 3,16,0,4.6,0,6,4,0 

, 16,5,0,35, 1 ,0,64,157 
5E 1630 DATA 0 , 129 . 1 29 , 0 , 05 , 0 , 0 

, 34 , 0 , 0 , 20 p 0 , 0 , 0 , 0 , £50 , 633 
41 1030 DATA 0,5,0,0,30,0,0,30, 

0,0,34,0,0,34,0,0,116 
49 1G40 DATA 65,0,0,55,0,0,138, 

13B , 1 , 0 , 64 , 1 , 0, 04 , 5, 0 , 51 B 
B7 1650 DATA 32,1,0,04,1,0,64.0 

, 135, 155, 0,55, 0,0, 65, 0,548 

49 1G00 DATA 0,34,0,0,34.0,0,30 
,0,0,50,0,0,5,0,333, 348 

05 1S70 DATA 0,H, 0,0, H,C5, 0,8,0, 

0, 20 , 0. 0 ,20. 0 , 0. E4 
DD 1680 DOTH 20,0,55,^1,0,0,34,0 

,0,34,0,0, 34,0,0,65,221 

05 1630 DATA 0,0,34,0,0,34,0,0, 
34,0,0,34,0,0,30,0, 156 

SB 1700 DATA 0,30,0,0,30,0,0,6, 

0,0,8,0,0,6,0,353,316 
DB 1710 DATA 0,6,0,0,0,0.0,8,0, 

0,8,0,0,8,0,0,40 
71 1720 DATA 5,0,0,3,0,0,8,0,0, 

8,0,0,0,0,0,8,48 
D7 1730 DATA 0,0,8,0,0,8,0,0,6, 

0,0, B, 0,0,8, 0,40 
E5 1740 DATA 0,9,0,0,0,0,0,0,0. 

0,^,0,0,8,0, 148, 188 
15 1750 DATA 0,9,0,0,8,0,0,8,0, 

0,50, 0,0, £0,0, 0,64 
AD 1750 DATA 50,0,0,34.0,0,34,0 

,0, 34,0,0,34,0,0, 65,551 

35 1770 DATA 0,0,34,0,0,34,0,0, 
34 ,0,0, 34.0,0.30,0, 156 

30 1700 DATA 0,50, 0,0, 20, 0.0,0, 

0,0,8,0,0,8,0, 18,83 
El 1730 DATA 0,B, 0,0, 30, 0,0,30, 

0,0.34,0.0,34,0,0, 116 

06 1800 DATA 55,0.0,65,0,0,138, 
138, 1, 0,64, 1,0, 64,3,0,518 

DC 1810 DATA 33,1,0,64,1,0,64,0 

, 15B, 138,0,65,0,0,55,0,548 
85 1830 DATA 0,34,0,0,34,0,0,50 

,0,0, 30, 0,0, 9,0, 350 , 366 
CB 1830 DATA 0,8,0,0,30,0,0,34, 

0, 0,65,0,0, 15B, 158, 1 , 354 
D3 1840 DATA 0,64,3,0,33,4,0,15 

, B, 0,8, 16,0,4,35,0,186 
E5 1850 DATA 3,15,0,4,8,0,8,4,0 

, 16,3,0,33,1,0,64, 157 
67 I860 DATA 0,138,138,0,55,0,0 

,34,0,0,30,0,0,8,0,7,330 
85 1870 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
FC 1880 DATA 0,0,0,0,0,0,0,0,0, 

0 , 0, 0 ^0, 0 f 0, 8 , 8 
FA 1830 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 

50 1500 DATA 0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,101,101 

EE 1010 DATA 0,0,0,0,0,0,0,0,0. 

0,0,0,0,0,0,0,0 
ED 1830 DATA 0,0,0,0,0,0,0,0,0, 

8,0,0,30,0,0,34,63 
H7 1330 DATA 0,0,34,0,0,30,0,0, 

56,0,0,0,0,0,0,0,85 



CS 1310 DATA 0,0,0.0,0,0,0,0,0, 
0,0,0,0,0,0,0,0 

30 1S50 DATA 0,0,0,0,0,0,0,0,0. 
0,0,0,0,0,0,0,0 

5E 1950 DATA 8,0,0,30,0,0,34,0. 

0,05,0,0. 158, 138, 1 ,0,3B4 
A3 1370 DATA 54,1,0,64,0,128,12 

0.0,158, 138,0,65,0,0,34,0,74 

0 

CE 13B0 DATA 0,62,0,0,0,0,0,0,0 

,0,0,0,0,0,0.251 ,863 
BF 1830 DATA 0.0,0, 0,0,0, 0_,S,0, 

0 , 30 , 0, 0 , 34 . 0 ,0 , 63 
D3 3000 DATA 65.0,0,136,138,1,0 

,54,2,0,32,4,0, 15,8,0. 4^8 
DA 2010 DATA 8,8,0,8,4,0,16,4,0 

, 15,5,0,33, 1,0,64, 153 
70 5050 DATA 1,0,54,0,120, 128,0 

, 137, 0,0,0, 0,0,0,0,546,634 
60 3030 DATA 0,0,0,0,54,0,0,65, 

0,0,138,120,1,0,04.3,450 
4B 3040 DATA 0,32,4,0,16,8,0,8, 

15,0,4,33,0,2,04,0,186 
SA 3050 DATA 1,32,0,5,33,0,3,15 

,0,4,15,0,4,8,0,8,135 
A3 3050 DATA 4.0,16,4,0,15,3,0, 

3S,5 P 0,35, 1 ,355, 1 33, 21 B, 772 
15 3070 DATA 1,355,192,2,0,35,5 

,0,32,4,0, 16,4,0. IS, 8,564 
12 50B0 DATA 0,8,16,0,4,10,0,4, 

33,0,3, 33,0,2,64,0, 180 
46 3080 DATA 1,32,0,5,16,0,4,8, 

0,8,4,0, 16,2,0.32,155 
FD 5100 DATA 1,0,64,0,158,138,0 

, 65 , 0 , 0 , 5 4 , 0 , 0 1 , 8 , 0 , 34 , 483 
35 3110 DATA 0,0.0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
83 3130 DATA 0,0.0,0,0,0,0,0,0, 

0,0,0,0.0,0,0,9 
83 3130 DATA 0.0,0,0,0,0.0,0,0, 

0,0,0,0,0,0.0,0 
27 5140 DATA 0,0.0,0.0,0.0,0,0, 

0,0,0,0,0,0,30, 30 
FD SJ50 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
0F 21G0 DATA 0,0,0,0,0,0,0,0,0, 

8,0,0,54,0,0. 103,255 
ED 5170 DATA 138,0,54,0,0,8,0,0 

,0,0, 0,0, 0,0, 0,0,1 90 
CD 5100 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0, 173, 173 
C5 2150 DATA 0,0,0,0,0,0,0.0.0, 

0,0,0,0,0,0,0,0 
A3 2200 DATA 0,0,0,38,0,0.55,0, 

1, 120, 155,3,0,33,2,0,404 

31 2210 DATA 33,3,0,32,1,120,19 
2.0,93,0,0,58, 0,0,0,0,514 

3F 2220 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0.0,5,5 
E3 3330 DATA 0.0,0,0,0,0,0,0,0, 

0,38,0,0,09,0,1,138 
51 2540 DATA 13B, 183,6, 0,49,8,0 

,0.0, 0,8,8,0,8,6,0,430 
AD 5550 DATA 6,8,0,9.0,0,8,6,0, 

8,6,0,48, 1, 12B, 135,431 
43 3560 DATA 0.99,0,0,38,0,0,0, 

0,0,0,0,0,0,0,51 , 14B 
Fl 3570 DATA 0,20,0,0,38,0,1,12 

8, 133,6,0,48,24,0, 15,33,570 
SA 3380 DATA 0,2,35,0,3,33,0,2, 

32, 0,2,32,0,5,33,0, 170 
B4 2330 DATA 2,35.0,2,33,0,2,32 

,0,2,32,0,5,35,0,5,175 
C7 2300 DATA 54,0,15,6,0,46,1,1 

26, 192,0,33,0,0,26,0, 117, 5S5 
04 5310 DATA 1,255,192,5,0,32,3 

,0,32,4,0, 16,4,0,16,8,564 
00 5320 DATA 0,8,9,0,9.15,0,4,1 

6,0,4,33,0,2,32,0, 130 
30 5330 DATA 2,32,0,2,16,0,4,16 

,0,4, 6,0,8,6,0, 0, 10B 
FA 2340 DATA 4,0.15,4,0,16,2,0, 

33,3,0,33, 1,255, 192,536,732 
3D 2350 DATA 0,0,0,0,8,0,0,20,0 

. 0 , 34 , 0 , 0 , 34 , 0 , 0 , 35 
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FC 2360 DATA 65,0,15,128,240,16 

,0,4.0,0,0,4,0, 16,5,0,514 
7B £370 DATA 32 , 4 , 0, 18 , 0, 0, 0 , 16 

,0,4. IS, 125, 24B ,0,66, 0,544 
S3 2300 DATA 0, 34,0,0, 3*1,0, 0* 20 

,0,0,8,0,0,0,0,70,174 
05 2390 DATA 1,0,54,1, 120,192, 1 

, 33 , 64 , 1 , £0 , 64 , 1 , 0 , S4 , 1 , 703 
33 2400 DATA 0,64,1,0,64,1,0,84 

,6, 0,40.0, 0,8, 15,0,280 
4C £410 DATA 4,0,0,8,5,0,43, 1,0 

,54, 1 ,0,64, 1 ,0,64,263 
EG 2420 DATA 1,0,64,1,20,04,1,3 

3,54, I, l£8, l£8, 1,0.04, 126,77 

2 

4C 2430 DATA 0,50,0,0,33,0,1,12 
B, 132, 5, 0,40, £4,0, 12 , 30 ,576 

3C 2440 DATA 0 , $0 , 33 , 120 , 194 , 32 
,33, 2, 32, 28,2,32,8, £.35. 0,68 
2 

20 2450 DATA S , 3£ . 8 , 2 , 32 , 0 , 2 , 32 
,3,2, 32,8, 2,3£, 8*5, 212 

31 2450 DATA 24,0,12,6,0,48,1,1 
36, 192.0, 107.0,0,26,0, 190,76 

0 

3C 2470 DATA 0,0,0,0,0,0,0,0,0, 

0,0,GJ, 0,0,0,0,0 
2A 2430 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,8,8 

10 2430 DATA 0,0,0,0,0,0,0.0:0, 
0,0,0,0.0,0,0,0 

92 2500 DATA 0,0,0,0,0,0,0,0,0. 

* " ""'0 , 0 , 0 , 0 , 0 , 0 , 35 , 05 
04 2510 DATA 0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0 

11 2520 DATA 0,0,0,0,0,0,0,0,0, 
0,0,0,20,0,0,42,70 

E4 2530 DATA 0,0,20,0,0,8,0,0,0 

,0,0, 0,0, 0,0,0, 28 
EA 2540 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,233,533 
GC 2550 OATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
C0 2550 DATA 0,0,0,20,0,0,34,0, 

0,73,0,0, 143, 128,0, 170, 56 1 
□E 2570 DATA 1 23 , 0 , 1 48 , 1 £0 , 0 . 73 

, 0 , 0 , 34 , 0 , 0 , 28 , 0 , 0 , 0 , 0 , 530 
EB 2580 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0, 0,43,43 
07 2530 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,52,0.0.52 
;8B 5500 DATA 85,0.0,156,126,1,3 

4 , 54, E, 73, 32, 2, 148, 150,2, 170 

, 1037 

0F 2610 DATA 150,2,148,150,2,73 
,32, 1 ,34,54,0, 166 t 120.0,65.0 
,1025 

46 2620 DATA 0,52,0,0,0,0.0,0,0 

,0,0,0,0,0,0, 137,258 
E5 2530 DATA 0,0,0,0,0,0^,127, 

0,0, 12B, 128, 1 ,6£,G4,2,S12 
15 2540 DATA 55,32,4,166,144,3, 

34,72, 10,73,40, 10 n 148,160, 10 

, 170, 1145 
80 £860 DATA 1GG, 10, 140, 153, 10, 

73,40,9.34,72,4, 155, 144,2,55 

,3S,1135 

FB 2550 DATA 1,62,64,0,120,120, 
0. 127,0.0,0,0,0,0,0, 137,707 

90 2670 DATA 0 , 2S5 , 1 28 ,1,0,64,2 
, 1 £7, 32,4, 128, 144,9,62, 72. 10 
, IG4E 

TO 2600 DATA 65, 36, 30, 156,146,4 

1 ,34, 74, 4£, 73, 42, 42, 140, 170, 

42, 170, 1317 
j 43 2530 DATA 170,42,148,170,48, 

73,42,41,34,74,35, 156, 14E, 10 

,55, 36, 1233 
3C £700 DATA 3,6£,7£,4, ISO, 144, 

2, 127, 32, 1 ,0,64,0,£SS, l£8, 16 

5,1135 

10 B710 DATA 0,255,120,1,0,64,2 
,0,32,4,0,15,8,0,0,16,534 

AB 2720 DATA 0,4,32,0,2,32,0,2, 
32,0,2, 32, 0,2, 32,0, 172 



CA 2730 DATA 2,32,0,2,32,0,2,32 
.0,2,32,0,2,16,0,4, 150 

00 2740 DATA 8,0,8.4,0,10,2,0,3 
2, 1 ,0,54,2,2^,0,0, 330 
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5C 100 REH AUTHOR L , KEI GKLEY 
ID 11D REfl COPYRIGHT 1£/1WB4 

S£ 120 PR1NT"CCLR,DDUN10: " 
57 130 PRINTS RIGKT14, CI 123" 
5F 140 FRINT"IIRIGHT14,RU50N: EL 

ECIRDNIC " 
75 150 PSINT":RI6HT14,RU5DND M 

DTE BOOK " 
01 160 PRrNT ah C:RT□HT14,GU12: l, 
3D 170 X-FRECQ) 

A5 100 PRINT'^DDUN^RIGHTlOIICOR 
£ REQUIRED "-30911-X 

39 180 DinT£5<; io? ,t3sci0? , R1C12 
>,DEt UJ ,LSC503 

4E 200 FDRX-1T0500:NEXTX:OPEN1S 
3 IS 

DE 210 GQTC1K4G 
IS ££0 PRirJTTAEC38? ; 
68 230 RETURN 
87 240 F13- "N" 

13 250 IFLENOCE5<LENCSS3TK8NRE:T 
URN 

36 £60 F0RX-1T0LENC5E? 
SO £70 IFt1IDS<5B , X, 1 J w " F "THEN30 
0 

6E 580 IFniDSCSS, X, l^-niDBCKS,X 

, 1 j THEN300 
AD 290 RETURN 
07 300 NEXTX 
05 310 FlS- ■■¥" : RETURN 
OF 3£0 lNPUTttlS,EN,Ens,ET,ES 
FA 330 I FE N - CT H EN R E T'J R h 
Q B 340 : FEN -50 THEN RETURN 
3D 350 PRINTCHRSC 142} 
75 350 PRINT "HCLRH ERROR lp 3 El 
56 370 PR INTEHS 

46 : 360 PRINT BOLUMIQ D DQ YOU UI15 
H TO CONTINUE CY/N3 " 

40 333 GETXfc: :FX5- ,,, THKN3y3 

3F 400 1FX3<> "N-ftNOXSO "Y"THEN3 
30 

BS 410 IFXS-"Y , 'THEN2D30 

2E 420 RETURN 

6E -30 I FE""E 1 THEN510 

35 440 IFE>E1THEN510 

90 4S0 F0RX-E+1T0E1 

9A 460 PC-X;G0SUB1600; G0SUE38O 

£8 470 lfEN-SQTH£Ne>X;G0T052O 

35 480 INPUT#1,XI 

es 450 :fleftsi;x5,i)-":fi:"then 

E«X : GOT 0520 
CF 500 NEXTX 
7D 510 E>E*t :E1*E 

RscsaD + ^cpn* 

63 500 XE-XE+5TR5Crtl5+"CPI3 ,J +P£ 

09 670 RC-1 :SD5iJB1600:GD5U6320: 

PRINT#1 ,X5 
C3 880 RETURN 

43 550 Xl-1 : RC-1:GCSUB:ECID:GD5U 
B320^ IFEN-E0THENXE-"CPI3 11 : GD 
TOG 10 

5F 500 INPUTttl.XS 

AB 010 I FLEFTS C XS , n - ,J C P 1 1 "THEN 
RETURN 



OA 8£0 FORX-ITDLENCXS^ 
36 830 [FniDSCXi,X f l><> at CPI3"TH 
EN7BD 

E3 640 □NX1GDTC550,570,530, 710, 

730,750,780 
50 680 E-UAL CLEFTS CXf.X-UD 
80 860 G0T076O 

F3 670 £l-OALCniDffiCXB,X2+l,X-X2 

-1 J 3 
9C 6B0 GOT 0750 

CS 630 51-UALCniDECX£,X2+l,X-X2 
-1>: 

68 700 GDT07EO 

30 710 S2-UALCr]IDSCXS,X2^1,X-5CS 

-m 

D4 720 G0T076Q 

EF 730 ni-UflLCnlDECXE,X£+l ,X-X2 

CO 740 GDTD760 

OS 750 F£-CniDSCXS,X2+l,6?3 

BE 760 X2-X 

7E 770 Xl-Xl+1 

3D 780 NEXTX ; Xl£- "CONTROL " 

EF 730 IFX1>6THENRETURN 

FO 800 PRINTCKRSC14£? : PRINT"CCL 

R 3 ERROR - HISSING FIELD ";X1 

S 

AO 810 END 

35 B20 1FR-E3ANDR-E2THENE2-0-E3 
-O 

ED 030 xs-Ta^ pi :pn '^6TRE<:S33 + ' N i: 
P I 2 ^STRffi C S4 ? + " C P n "-^STRS C E2 

3E 840 XS-XS+TIE+XPir^STRSCne 
3 + "CP 1 1 " 

AH 050 RC-R]G05UB1500: GC5U032O: 

PRlWTttl ,X5 
Dl 360 RETURN 

FD 370 Xl"l ■ RC-R; GD5UB16Q0 ; G05U 
B3EC. FS-O: IFEN-5DTHENX3-":PI 
: H :GDTOG30 

70 000 INPUTttl.XS 

26 890 fORX-lTOLENCXS) 

Bl 900 F0RX-1T0LENCXI) 

OA 810 IFT1I0BCXS,X, 13<> ,, CPI3"TH 
EN 10 70 

84 320 ONX180TD330,350,370,330 1 

1010, 1030, 1050, 1070 
34 930 TE-LEFT3tX£,X-D 
AD 940 6DTD1C60 

40 950 53-UAL<hI0SCXS,X2+l,X-X£ 

-lj J 

Bl 350 GDTOIOSO 

3F 370 54-UALtrU0$<X£,X£^l,X-X2 
C5 380 G0T01O60 

33 390 E£-UALCniD£CXE, X£+1,X-X2 

-no 

E3 1000 GOTO 1050 

55 1010 E3-UAL C II 1 0$< XS , X£+ 1 , X-X 

2-1 D ^ 
FD 1020 G0T01050 
73 1030 T1S-IHDSCXS,X-1, 1) 
04 1040 GDTD1060 

D0 10S0 n2-UALCMI0SCXS,X2^1 r X-X 

2-ljj 

ID 1060 X2-X:X1-X1-^1 
££ 1070 NEXTX: XlE- "5ECTID^3 ,i 
OE 1060 1FX 1 > 5THENRETURN 
57 1030 GOTOBOO 

EC 11C0 XS-5TRSCE4^":PID' , +5TR$ 
CE5^ +*C PI ] P 1 3 "+STRS C N 

33 1110 RC-P2: 30SU61GOC: G05L'H32 

0:pRlNTttl,XS 
EA 1120 RETURN 

fi2 1130 Xl-ii RC-R2rG05UB1500:GO 
5UH320 : TFEN-SDTHENXS- "C P [ 1 " : 
GDT01150 

70 1140 IMPUTttl,XS 

EI 11SQ IFLEFTECXS , 1 5 - " C P I D "THE 
NRETURN 

E4 1160 F0PX-1TDLENCXS3 

C7 1170 iFniDscxs, x, 1 w> ,? :pi: h t 
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4B 

70 
A2 
GD 

45 
A4 

DA 

DC 

05 

ia 

BE 

AF 

DE 

A3 
□ 0 



1G 
15 

A3 
54 

7B 
14 
73 

2F 
eb 

30 
BF 
6E 
92 



B7 
CE 

2E 

BO 

SC 



19 
CO 
Al 
BO 
FO 
BE 
EC 
C4 
□ B 

EA 
S2 



EE 



BB 



49 



40 



HEN1270 

11B0 ONXIGOTCl 13C k , 1530, 
1250, 1270 

1190 E4-UALC LEFTS vXS , X~l }3 
1200 GOTO 1560 

1210 ES-uALcnioscxa.xe+i, x-x 
a-i p ? 

1220 ggtoieeo 

1^30 KS-nioscx$ 1 x2+i 1 X'-xe-i:) 

1240 GQTD12E0 

1250 Nl-UALCnEDSCXB, X2-^1,X-X 
£-130 

1260 X2-X; Xl-Xl+1 
1270 NEXTX; X1S- "ENTRY KEY " 
1220 IFX1> 4THENRET JRN 
1230 60TGB00 

1300 XS-5TRICN23 + "CPi: ,3 + DlS + 

K, cpn ta 

1310 RC-R3 : GQSUB1G0Q: G05UE3E 

Q:PRINTttl r XS 

1320 RETURN 

1330 Xl-liRC-R3:G0SU9lEa0:GG 

5UB3EQ: IFEN-50THENXE- "CPU"; 

GOTO 1350 

1340 INFUT#1,XS 

1350 IFLEFTSCX5, U-'TPIj "THE 

NRETURN 

13BD FGRX-ITDLE^XS]) 

1370 LFM 1 □£< X$ p X, 1 J <> "C P 1 3 M T 

HEN1430 

13B0 DNX 1GDTD1390 , -410 t 1430 
N2-UALC LEFTS C Xffi , X- 1 ? > 
G0TD1420 

□l$-nIDE<XE,X2+l S X"XE-1 



1330 
liCC 
1*110 

1420 
1430 
1440 
1450 
14B0 



X£-X: Xl-Xl+1 
NEXTXiXlS-^'ENTRY 1 ' 
I FX I> ETHENRETURN 
GCTDGOO 

□ PENH , 4 , 1 : FRINTCHREC 142 
3 : □PENS. 1 i 1 7:PPlNTlt5:^LD5E5: P 
RINTCHRSC 14? ; RETURN 
1470 □PENH,4 I 7: RETURN 
14B0 DPENG, 4,9: PRINT #6: CLOSE 
G: CL05E4: RETURN 
1430 RC-E : GO5UB1E0O : GD5UB220 
• FRINTt*! , 1 : RETURN 
1500 XlS-" h, :FORX-lTQLENCDS<l 

1510 I Fill DEC DSC 105 , X , 1 3-"^ "T 
HEN5Cia-XIB+CHMC44) : BOT01530 



35 1S2D X1E-X1S + I1IESCDSC103 , X , 1 

J 

AE 1S3Q NEXTX: DSC 10H-X13: RETURN 



1S40 IFE< R2THENRETURN 

1550 E-R2:GDT01SSO 

15B0 IFECR2THENRETURN 

1570 E-P3 

15B0 GDSUBS4D 

1590 RETURN 

1SQQ Pft-[MT£RC/E55) 

1610 RB-EC-RA+E56 

1020 PRINT#15 fc "P n GKMCSB3CHR 

SCRBUCHESCRAiCHRSC i: 

1B30 RETURN 

1540 PRINTCHi?5C142 3 :PR1NT"CC 
LR,5U,S*37,S ■ D " 
1550 PRINT^'CS-3 1, INITIALI5 
E NOTEBOOK DATABASE 11 ; : 60SUB2 

20 : ph : l *jt "z 5-3 " ; - gd5ub220 
16gq pr i nt" c 5-1 2. select cr 
usondsectidnckusoff: usage"; 

:B0SUE220 

1B70 PRINT -C5- , 5PC4J1 . CREAT 
E NEUI JCRUS0N3SECTIDNCRUSDFF: 
H ; :G0SU9220 

1GB0 PRINT , TS- 1 SPC4:2. DELET 
E CURRENT CRUSDNISECTIDNCRUS 
OFH"; ;G05UEEE0 
1530 PRINT I? :5- I 5PC413. AMEND 
CURRENT URUSDNHSECTIONCRUSO 
FFl " j :GC5UB220 



7D 1700 PRINT I1 :S- 1 SPC4:4. 3ELEC 
T :R^SON]SECTIONi:RUSOFF:r ; :G 
CSUB220: pRIMT ,fc CS-V ; :G0SUB22 
0 

AA 1710 PRINT^S-I 3. SELECT CP 

USON3ENTRIESCRUSOFF3 USAGE" ; 

;GU5UE220 
C3 1720 PRINT":S-,SPC4:i - CHEAT 

E NEU URUSONHENTRYTRUSDFFIT 1 ; 

:GD5UB220 
CO 1730 PRINT"CS- i 5PC4II2 , DELET 

E LLRRH-'T : RUSONIENTRVCRUSOF 

F3"; ;E0SUB220 
ES 1740 PRENT , TS- 1 SPC4J3, AflEND 
CURRENT CRUSDNII ENTRYC RUSOFF 

l n ; : G0SUB22Q 
01 1750 PRINT": 5-, SFC4T4. UIEUJ 

CRySDNlENTRY:HUSDFF:"i : SOSUE 

220 

9F 17B0 PRINT M ?;S- 1 SPC435 , SELEC 
T C RuSOt\J_) ENTRY E RUS0FF2 ,h ; ; GOS 
UB220;PRlNT^CS-] h, ; ;G0SUB22D 

00 1770 PRINT'TS-I 4, SELECT CR 
USONDPRINTCRUSDFFi USAGE" j :6 
D5US2E0 

51 1780 PHINT'TS-, 5PC4:i ■ ALL L 

ABELS" ; : GDSUB220 
D5 1790 PRINT : "C:S- ? 5PC4j2. 5INGL 

E LABEL M , TAB C 30 "CSU, 1 S»7 1 CU 

: 

34 1900 PRIMT I? :5- 1 SPC413. ALL R 

EPORT 11 ; TAB C 30 j • ""C S- 3 USAGE"; 

:B0SUB2£0 
B9 1S1Q PRINT r, CS-,SPC4]4. SINGL 

E REPORT ** j TAB C 30") j "ES— 3 " ; El ; : 

S05UB220 

BE 1B20 PRLNT"!I5J ? 5*29 I CE 1 S-7 1 5 
KIT 

DO 1930 PR INT "ENTER REQUlREnENT 

(9 - ENO KUNJ" 
SB 1B40 GETXE: I FXE- ^ "THEN 1840 
EE 1850 X-UALCX5} 

AS 1B50 I FX< 1 ORX> 9THENPR I NT "ERR 
OR - PLEASE RE-ENTEEtUF£3 " ; G. 
0701640 

93 1B7Q □NXG0TD2L10, LBBO, 1BBC, 1 
BBO , 1540, 1540, 1B40, 1640,2100 

Fl 1080 IF015- ,r, Y ,fc THEN1330 
CE 1QSC DPENl.S.e, H 0 : ELECTR I CNO 
TEBOOK ,a : D1S- " Y ■ j I NPUTtt 15 p EN p 

Ens „ET,ES 

E3 1900 IFEN<>OTHEN2010 

4C 1910 BDSU055O 

EE 1920 RC-2:G05UB1600-G0SUB32C 

: INPUTttl , n 

FF 1930 GETXE: I FXf- IJ "THEN 1330 

99 1940 X1-UALCXS3 

BE 1950 1FX1-0THEN1E4D 

7F 1950 IFX1>5THEN1330 

EO 1370 DNX-1G0T019B0 , 1330 , 2000 

50 1980 ONX1G0T02310, 2610,2980, 

3550 ? 1S30 
D3 1990 QNX1G0T03B5O, 4520, 4910, 

B0G0.643O 
DB 20D0 0NX160T0B99G, 5990,7410 1 

9500, 1330 
95 2010 IFENOS2THEN2070 
yi3 202C I N?_ I " LNTETR NGTEBDDK NA 

HE ";X£ 

30 2030 CLOSE: : DPEN1 , 8 P E, "Q:EL£ 

CTRICNOTEBOQK " 
EO 2040 INPUTttlS . EN, Et1$ t ET S E5 
86 2050 IFENOQTKENE070 
IS 20B0 SOTO 1910 
CB 2070 PP3NT"CCLR1ERR0R - cdds: 

" ;E9 ; "CDOUINl" 
4A 20BO PRINTEnSrCLOSElYCLQSEiS 

B2 2090 END 

29 2100 PRINT 1F CCLR:":CLDSEL;CLG 

SE1S:GQT02090 
55 8110 PRINT'TCLRiENTER ' N 1 BE 

LOU FDR STANDARD NAflECHOMEl " 



7E 



EB 



2120 
BOOK 
2130 
2170 
2140 
21SQ 



lNPUT ,k COOUJN£lENTER NOTE 
NAME " ; XS 

IFXS-"N M 0RX5-":5N:"THEM 



J Q: "+XS+" ,L : 



F5 2140 CLOSE! 
IB 2150 DPEN1 ,8,2, 1 

+CHRSC425 
7fl 2150 GQT021BO 

A3 E170 CLOSE 1 : OPEN 1 1 9 fc 2 , "0 : £L£ 
CTR I CNDTEBUOK , L 1 ?I +C^REC4E5 

51 E1B0 INPUT "ENTER HAXinun ND . 

OF RECORDS " ; n 
7A 2190 IFm>350DORn<500THENE160 

12 2200 F0RRC-3TDrt: PRI NT CLR] R 
ECORDS SET UP " ■ RC 

AE 2210 GDSUB160Q 

BE 2220 PRINTtfl, "CPI] H 

CD 2230 NEXTRC 

4B 224D E-EB:El-ffS:Sl-0:S3-a ? ni 
-0 

Dl 2250 PRINT lfc CCLR !] ENTER POINTE 
R CHANGE PASSUORD'i 

EF 22B0 I3-G: [4-6 .'-0081)86200 

95 2270 P5-[tt 

BB 2290 G0SUB540 

29 2290 n-n-2:G0SUBl490 

7B 2300 CLOSEl : G0TCI540 

5 A 2310 PR 5 NTCHREC 14] : PRINT 1p CCL 
R, RU50N , SC, SR , SE 3 SA p ST , SE, 55 
PC, SS , 5E , 5C , ST , SI , SO , 5N , RU5D 
FF , 55PC1 C CSSPC , SE , SN t ST , SE , S 
R.55PC: 'CSE ? SD,SF: 'CSSFC^T, 
50, SSPCjSE ,514,50:1" 

FD 2320 PHIWT'"tDO(iJrj,SS 1 SE r SC a ST 
pSl l S0 l SN i 55PC i ST f Sl s ST,SL l 5 
e: ,h ; 

52 2330 13-10; 14-1 : GDSUB9200 

5F 2340 IF 1S- ,, RETJRN >I 0R l5-"*E fc " 
ORIS- "END ,, 0R1E- ,J EDF ,J TMEMPRTN 
TCHREC142);G0TD164O 

5 A 23SG Tffi-IS 

A7 23S0 53-1 : 54-52 : E2-0 ; E3-0:P12 
-Ml + 1 

2F 2370 PRINT'TDOUW^.SPCS^STD-: 
ST, SE , SX, ST1 Ji : PRJWCSPC5 , SL 
3 -CSL ¥ 5A , SB , 5E , SL , SS3 " : PR INT 

pn cspc5 1 sn:-:sn , so , st , se , ss, u 
fs:" 

9^ 23BO lNPUT fc, CD0liJN,5U ,55,5a, SG 
l SE i SSPC 1 ST,SY,5P l SE J SSPC3 CC 

sl:/:sn3/cstd3 " ; tis 
4B 2390 iftie<> f, :5t: h andt:e<> 

SNZTANOTIEO'TSLIT'THENPRINT" 

CUP33":GDT0E38O 
3E 2400 PfiINT"CE0UN103 H 
93 2410 IF5e<3THENR-3;SCTD2 l l70 
A3 2420 F0RR-S1TOSS 
FD 2430 RC-R; GDSUB1600 : G05UB320 

; INPUTttl , XS 

EF 2440 IFTB-LEFTSCXS.LENCTBl 3T 

HEN2580 

6B 2450 NEXTR 

B7 24 BO R-52+1 

F2 2470 IF540THENS4-1 

BE 2^BC GD5UBB20 

67 2490 5E-R : ni-ni+l 

13 -e^iDO IF51-0THEN51-R 
EE 2510 GDSUB540 

9F 2520 n-n-i 

EC e530 GDSuBl 490 
BA 2540 R9-R; R-54 3 EG5UBB70 : S3-R 
9jGOSUBS20; R-R9iGDSUBS70 

14 E550 PRINT^CRIGHTll^USON^R 
, SE , SC , SO , SR , 5D , SSPC , S I , SN b 5 
S,SE, 5R,SI,SE,SD3 M 

BB 2EBG FCRX»1T01CQ0:!\FXTX 

£570 PRINTCHREC142?:GGT01B 1 1Q 



3B 



E5B0 PRINT"CRU5DN,5E,SRE,S0, 
SR | RUSOFF , SSPC, C2, SSPC, SO, SU 
i SP , SL , S I , SC , SA , ST , SE , SSPC k S 
T,SI , ST, SL,SE, SSPC, CZ , SSPC, S 
P , SL . p SE , SA , SS k SE , SSPC , SP h SE , 
ST , SR , SY3 " 
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LISTINGS 



► 



E7 


jrrjr-1 c n d v ™- 1 t n i ann , hiirvTV 
cbyu r UKa 1 1 U 1 cLU : - J L A 1 X 


RIR 
i . . 


in R n PP T MT M 4 l~RT RiRRRT 
JU 3 U PR 1 f>J 1 T B L3L T 3H 1 33 1 31 1 


J LJ 


3S10 HE" I : GDEUSBEO 


jt 


QbUU jUIULJIU 




•CRPP RR RF RP RT RT Rn Rhj RR 
33 i L. | 33 , 3L 1 3 !_■ , 3 1 , 21 , 3U v 3m 3 33 


47 


35EQ 3CTD300Q 


-aq 
j _j 






pr q P RPt R T R N R T R P 1 - — f 

. L_ , di , 3k_i | 31 , , J L , _r£. , — j fT J . L 
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3530 PRINT"CD0UN3, 5P1 FiSSWDSD 




D fcn- cc ci cr ct cr pcni^ 1 cr 
k | pu „ be- , bL p 3L ^ bi 1 3L , 33ij r 3L , 




ptiRnM f rm 11 . cm 
[\vjum , i j j a! 




ALREADY INPUT WAS INVALID": 




Cl ' r~ — i — i CC C-M C T CC^P CC? CC C 

3D p bltC , , bJM , 3i ,. 33 rL | 33 s 3.L ( 3. 


L. P 


^J^cnl pbtmt^c tcm cf tv ct 

JUDU rPClnil 3. LbN, ipJL , , b J , 




F D R )( - 1 T020 0 D : N E XTX 




P RT cf cn Rt-.l ~i " 
L , P 1 , Jl , ijU h 3J>J J 




ccpr cc cm ct c» ci/ cepp RP 

JuTL, Jl , Jl'J , 3 1 r JH a P T 1 jP r l_ , _ i , 


ED 


3540 GQT03c?4C 


r 1 


Sc^n PP T MT'T nniilM RR qc c?P ct 
CQCU k n. 1 1 * 1 L UULUN , 3 3 , 3L , 3L , 3 I 




Rn RT RN RP ecpf v_f dm 

Jl_l ! J 1 a Zj PJ ,31, J3£. , PIT % 33rL J i u ITU 


C5 


3550 R-Sl - Rl C 1 3"»S1 ■ FGEX-PT01 




, 3 1 , 3U i, 3iN 1 33 PL. J i j 1 3 




J l_lr J , LLr 1 J , CC 




1 1 RI CX^-O - NEXTX ■ PRINTCMMC14 


to 


□cm pp t kit 11 r npiiiFMS ca cd ct c: 
IZtiJU rKllNl L UUUUrNc: , bH , 3K , bfc. ■, P 




jju / u rrti*yi ci - L bL % biH , bb , b 1 J 








car cu rn Ci t CCDT CC Cl l to c 
□ rL | 3T , jU , 3LI , bJS.rL, bb, bU , b,K , 3 




T^P Cm Ct qp qv~l TRP Rn RT 
L P , bil^ i 31 , in i 31 J L3r , ju , 31 , 


03 


3550 PFLNT"t 1 "LR RLrSQw rr rf 




c- c c pr ~i < r c v i / r cm i ^ >p 




C L . c — cc CP! , _r gi icn M TP KTT n ■ ■ 

bn i b 1 , bJl p brf J 1_ KvbUN , Lir 1 J 




^E 5T 51 SD SN 5QPF RN RF RN 

WW p md i. ^ J X p UU , JS < j J JJ L ! 1 ^ JL 4 


P C 


Lb iu u 1 1 A a + A r a«p— 1J1 LNcb 4L 




■ rp 




! SU ] " 


/ M 


□ C Cf! T CVtt«''M 1 't LTC MOOT MTP U Dtt ^" l 


pp 

CL. 


PflRn PPTWT"7 TRM Rfl RP Rt 
j <. . , ,. u ., rr j. i a . . , L3! 1 , jFI , jr . jN . 


OF 


3570 IFR^OTHENSS^O 




"t- J - UfU lUlQ^U 




CC CP RRPP RT RV RP RR RRPP 1 

□ L n ja , j jrL , 31 , ■_■ i , j r , j c , _j j r i . 


AB 


3550 F0RL1-1TDLQ 


r n 
JJrL 








15 


3550 GDSUBSTC 


CM 


Rti/u PrcLr-jJi L UU WNL , K lun 1 / , .KU3. 


Ci 


TriQp*i PD T vj"T ' r f~ nniiiMP pl (enw cc c 


D4 


3500 TPSCLL : -TS : T3£ "L1 '} -T1S: 




flM tri CC CI cr CT CT CM C IT c- 
UN , bJU ^3b 1 3L. i 3t ? 3l ,31 , 3N , 3LJ , 3 




hi CT RlT RP CRPP CT CT CM CC" 

N,bL , bt , 3K, bbrL- , bL , bl , bN , , 




RI CL1*1 j -S3 




rnn rn CM CC C*.i C T CCDr" 

irL , 5L ^ bU | 3jtlz n bL. , bivl t bl , bbrL , 




ccpr cm n n r ccor ct cn cede c 
bbrL , bNj J U . L bbrL p b 1 , bu , bbrL , b 


D? 


3510 t FLEf "^B C "rpB C 1 !"] 1 >"rPT 

■-dUJ-K-P JL I J — J„.J 1 >B t, 1 <! Li ^ ^ 1 ^ L L 1 




CC CP CP RT RT RPf CM! » 
33 , 3Q t 3L , bl , b 1 , b U , 3 N J 




R CP crpr C£l CM CP CKI CD CP 

tS | bL p bb r L , on , bn t bL, bN, bLI, Ji., 




J "THENPRINT" CDDUN 5E SO 




CQuU ktb-™ l n J 




cm ih 

3U J 




5Rj ZC2 , SSFC , 5N { 5C . 5SFC , £n t S 


n c 
Lib 


cbbU L r k< > IjT H ErJc7 cO 


C 

bP 


"P 1 i"" - ! iScaTMTi'nn f - 1 i.ip.i 1 — 1 in 1 — 1 h — n 1 — 1 t~ i — 1 

J 1 uu PRINT L UOUI N , b P Lc A □ . Lb 




Pi ^ ST 5R1 11 ■ GOTnTERn 




JTi'Vrt D D T M "f ■" I* fi-ri 1. 1 h 1 "i CI ICFIhl C 1- c 

c/Uu rttliM 1 U UUuurJJ , rtUisUN ^ bL , b 




P ~i r T 1 1 P L . 1 t n r cm ~\ c K.H 1 pi 
KJLIUKIM 1U LbJiJL^pU 


: Li 


3G2Q I FR1 C L * +1 "j ■ 1 THEN R 1 C 11 H ■ 




Kef , bU , bK , RUSOrr J L Sri s 50 s 55 PC 


i ri 

1LP 


JLLu PRINT CbrtbjS, LbbJELU 




1 ■ IZDTD3650 




C^" Cl 1 t CC" Chi CT CC'DC CC 

i bL , bU , bKef h bt,bN,bi ibbrL^b, 




RITY CSAjCCESB 1 " 




3S3C S-RlCLl-i-1^ 

W vb 1 wrf W ■ \ l i ± \ JL- J. J- J 




et CP CT CT cn- cm cctji -1 co cr 
b c- , -bL j b 1 , 3 1 , bU h bfM ? b3rL, :L 


□ F 




21 


3640 NEXTL1 




i 5L , 50 . 5R , b JJ 


flpi 


P T Prn Vul 1A1 r ^ 




3FJRn pf? t iv t pp r nniiiN rn Rnn » , ta 


□ LL 

□T 


P"7i in nnTn3ccn 
c^lU bUIUcbbU 




T-iun TF¥>7THFN11 7ri 
-J J. iu if A' / *nJiNj±/u 




EC 10 j - j, l3T SI ST 3' 5Fl" TflR 


Lin 


C/CU tfL" W ' uUbLfn lQUU : bUbUtlJciD 


no 


i Rfi t f v - n tw fm^i ?ri 

3 1 ju 1 r a u 1 n j_ 1 -j _ j. c_ i_r 




C30 5"CST SY C P 5F1 H 




□ □TKITUt DA m «_ m . 1 f^r^C^i in t unn 

: rK IN 1 h 1 , rrS : n* , rl + L j bUbUcl I t3U 




J1DU 1 r JL UlTilifc N HNlJa? 


C3 


35G0 PRINT 


LIU 


37Tfl D D ' m T " r r^i ni .imu ni tut 1 ' nil 

c/jU rKtrJI L DLJUM^ , j* 1 UHLl ,1 , RU 




C la Lh J 3 JU 


EE 


3670 F0RLP-] Tni 0 ■ TFtI N P"".-nri 

-J*-P J tJ l J J v 1- L i. i U 1 J . IJ . l 1 LLC. JLJ 




cnKi rn CC" Ci Cc ct ct cm cr 1 
jLJN, jL,bt, bL fr 5t , ST , S i ,bN ( SG, 


4n 

I u 


^1 7ri nKiVi'^riTri'TiPcin ppqn pppn p 

J± / U UIM AIpU 1 UJJCbU „ JCUU 1 333U , J 




RR 1 *L LB j ™ 1 T H FN 3 70 0 




ccor cr CM c-^ Cd ct Ctt cc - i? 




"57n 1 n luCn pu.cn i cun pi on 
J/U , _5*i 1 U , JTbU , J13U 1 1 DlU , 3 ioU 




3SS0 PRINTLE- TARf t rt 1 ■ T?5CL?1 


/fcj- - 


c/tU 1 h t R LJ 1 M LrdcU b?J 






; TAE C 30 j ■ ^SSCLS^ 

| ■ *mm x i— !• *fcJP J , - — 1 -*r fc. J_ l_ j 


pi 


i_ . _: U 1_ !_. ; 


FB 


^1 Pn f 1 "f — P "nP7 ^ ffi-p l? V M TVIFM1 
J±cu i" til c. U *-D™ 1 IJiLNj 
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36SC NEXTLE 




3?C:ni mfiCri ' u i i "tin 
•- f cL LiLI ~Lp 1 1 JU 








37C0 I FR1 1 11 j -OOP F 1 % 1 ": - 1 "^KP 


P J 


3"7"7"ri DT - DP ■ RPiC l ip l enn - PPT rVT M 1 


SF 


31 (Lin pp t NT " r nriilM? pt imp r it rc 
j 1 — -lj r n- 1 1^ 1 l uu w im i_ . 3 1 j N . ji lp 




NPRINT"CBDUJN RU5GN ^CinilPLE^ 




c? it . m _ m -u i . rnci ipi u.cn . nnci mtcu 
> ftaa ; n~n-t-L ; bUbUD Il3U ; LlUbUH LbT. 




Pi ARRFiinpn " . 

r JnJ 3 r J*U I\ U J 




E" : G0TG372Q 




U 


a r 


ppnn t-3 b c, t 14 — c . ririCi iDWnn 


50 


3710 PR I NT ddun srnnp^ 1 " 1 

■ r J- *i_r b Li 1 M ± L. JL- 1. J Uu If ^ J 1 1 J LJ J\ XL 


Mb 


c/dU 1 r NI < > Ul j1i.Np: J"N1 : LjUI Ucih 


qq 
33 


PP in TF Tt;«P l t TW^T Ki ? 1 q?,_ <p v " - C n "•" n 
jciu if 1 -5 r -5 1 1 1 Li. I J d _ it' : ;uUiU 




3720 PR I NT'TPDldW SN sP Ri 1 




i n 
i J 




J LJ <_|ILJ 




ST!I C55 5 r ST 51 50 rn 1 


UV 


C/3U 1 r L. i™ K 1 nClNCBbU 


n 


pppn pp t mt '■ r nriLii W PLJRPlN rt rm 
jlj—U r n 1 n 1 L u JLiji-J , KU3U'N .31 , 3 IN 




CHEZ 5E SF ^G] CbT 3D SRI TS 


p i 

L I 


CQUU KC" Li : tiU i Uc / cU 




RU RA C:l C-T Rfll r RP cfl RRP 
r 3 V , JH , PL , 31 , 34J J L3r, 3H ,33C_, 




n , 50, 5R, BE] j 11 


rp 

LU 


£_D±L3 L3UDUQ1 J JU 




RU rp qn puqnppn — trrhttp 

j Uf , PU ,. PIT p 3U p RWjUr r J L 33 J LL 




3730 PR I MT "C SPL_ 14 1 f * TRR SF 

" ' ■ "1111 L- J r InbkJV L J L\ j J L_ , 




3Q3fl DPmD"5 . rTnCi i Cflh . dp t ^r~^^^ l 
CQcU HL"nJ: Ll UiU cl 1 CiU U ; r I\ 1 N 1 t1 1 




MPT TV r Rfi 1PPPRR ^ 




5T SU SR SNU CRT TSr 1 SF 




Ui . h.hi*1 . i*nCi iCi u.cn. rnci mi cc 
, J^a : n^n* i r UUbllDlisU : uUbUo Ibb 


B* 


IP'art PRTNT M iiirr t ^jn T pf l niii 




5M , SU ] 5 M 




n 
u 




J- J r-1 4, Ml^j rUiilTJl 


E 1 ! 


37H0 P 1 ? INT'TS =f "19" n ■ - r 4 




i>0 in t C"M^5 — ntu c- ipt c n 
gd-JU 1 r Mr UlnLi^c/bU 


RE 


— c T i^J ti-O L irUJT. A 1 1 Lc U UU : N L 




-1 :G0SUS3SOO 


rr 






A 1 A i LJ LJ 1 LJ kJ LJ 


54 


3750 IF] S-"*" T 4EN* B40 


31 C 

C L 


CDbU UU 1 Ucc L J 




ipcn pi? t nt kj r nn?iiM ct"itti c «» . . 

JL 3 U PTvIINjl L U U Jl 1 J , j . J l l L P ; ; 


F4 


-j ^ lr i^^uinLr-j—j 1 P'J 


H / 


PRR Pi PRbRR . POnCu 




i j j.u l n -l . uuplp C.UU 


- — . 


"57 7G TFP1 T1 1 "i-n riP Pl f 1 1 W 1 Tl-l F 


..-i, -j 

MJ 


cH/u 13 1 KtJt? L IMLNenyu 


LJ J 


TPcn Tt*Tc . D r " — i c; . rcn c i ip-i c nn . nn 
Jl dj 1913: rCL rt: Lpl, p U u 1 □ U U ; L3U 




up p t MT " r i 1 P T 1 " - Rr t n "5"? pn 
fc^ r it. 1 1 4 1 _ ur j j : uu \ u j .■ 


E" 

Jr 


cDQU □c B R3: □UbUnbiU : uulUcbUJ 




S 1 1 R ~*P 0 ■ PP FMTltT T «K 


IE 


I7nn f11 1 - tf"riflv — 1 Tni i ■ pi r 
j ■ uu n j. l j. J. j , r ljk a null . n 1 






fjf 


JL / 'J UU L 1 ] ULJLJ 




yi»n i hiV Y TV - ■ Pi r i i — p - n,iT n prr n 

A J U . I^JJL A 1A. F FT1 fc, X J ITl UU 1 UJubU 


i ■ ^ i 

Bu 


ooori n^DQ pnci itaoTrt c-ll^dq rne 


-p 

JU 


3 C DU PKIINI U. UU JJN i 3 1 J I rt ; : 1 








UflQCU 




^■■i . T'4— i - nnRi iqqpnn 


J LJ 


J^--U lr t'LC A. 1 Fi LriT K 1 IN L LUl J! J 


DC 
□ L 


pespn T FPR< "i 1 T WfTIViPRSn 
C3UU i. r IT3>- ' 1 1 ri d vC J L_ U 


1 3 


"3PQO TrTffi^nT "rip T "'M M P P T "C- "T 
JCJ3J IF IP™ L U LT. 1 -0 V'l UJT13? 1 




■ LIU J, fcjfcj / JLJ 1 


L •_ 


pci-i n Ri ■ pp , rrp-Ri i rr u n . nnTnPRRn 

C _ j. Li 3 L IT □ : iJLr3 U D3 1U : GUI i_ 3 JU 




"HP T ^E- "T ri 1 ij np "r^Mi n npnK 

LJK 1.1 « -jL J UJT 13 L3NJ UniiD 


1 pp 


Ji_iUU IT .T 1 . . . 








•m. 'p r er -i ?p Tur m pp t m t Sl r 1 i P 3 1 .. firl Tn 
L3i j injjiNrrciNi Lurcj :lpU1U 


BE 


n nnRi prtt 

3D J. LJ UUDLiOU' 


r. p 








7B 


39 P0 PR T NT 'TnriNKi SS cr er 

J — ■ l— '— 1 1 |w U I 1 1 L UU W <v , 3 P , J r. , PL, PI 




U LJ lT. LJ 


E7 


5 n n pp t nt " r i rp p n ah . nn t n ^p p n 
j-pjj r rc l • v i lltlj :uulU_ccu 




C T cr RM"| " . T* . " T Crl cn Rrt 
1 — 1 1 , 3*tp J 1 1 i L,bL,bU,bM, 


u 1 


crl J J Li : ~ U : b t J : _ c: U : t__J 


99 


JJjl U 11-61-6: uUpU PdCU 




qfl qc qni 13 
■ j- • 3l , 3U_! 




U : 1 -Lib ; ! lq U 


IP 


JJCU UU IUJUUU 


IS 


Jj jj r Ui\A 1 iUlU UU : in t a 1 A 


Tr-U 


Spun MP-fl ■ IS— Pi - pi — n - ru-f 1 ! . CC —A 
C3iU U . K U : K 1 y ; Ct U ; t-b v 




PlPn PP T KJ T T Rn li IM CM ir¥T r CC ~\ 
U J JU rJT i !M 1 L liUUM , 5-IN J LA 1 L 33 J 


SS 


JOIVJ UUm J1GIU 








LL1 1 U-SJ L jT J JIN 1 La s JJ, 


99 


PnCn CLL^n • FFa^ - C" LC fc— ?i ".Ml mfl ■ PR 

jg ju l 1 u . lj j . . lH i in l u ; rrr 


— — 


pqcn PPTNT"?' PIPlI il M P PIRT-TTII PLJ 
Lw3 U u IT 1 N 1 UUMJ Nl, nlun 1 il t 


an 

r-i r . 


q"-;Li.n TT«— L. - r*4— 1 ■ cnci ipqpnn 

3 ji u ij 3. n • i , u ubu b be u u 








c?nw Rn rp Rr cr rt rt rp qmi 

DUN ? 3 U , 3 L g 3L 1 3,L .31 ,31 , 3U , 3nl J 


17 


"iTicn r . cnqi iqnpn 

JJ-.U PJ L - U U-T L L.r! i_ ._. 


33 


3fiEn pptnt m rrr p PuRnw rh rp 

lj r k 1 1 1 i l ll rc , pl isjp U' t L 3U , 3 IT , 




r cr Rn Rr* rp ri rr rt cp 

L 3L. , b U , 31 1 , 3r , 3 L . JL, 31 1 JL j 


27 


j_-au uu L u Ju'^U 




SA ST SF R^rP^ rn RF Rhn r 

J Lr , 3 r-l , 31 ,3c, PPf ._ „ gn , PL 1 jUr 1 J L 


nn 

UJJ 


ljGU ■ UKa™ 1 1 U AbU : iy L A 1 a. 


F7 


-3-3 '-u r IT t. - m 1 i_ LU w V , bL J H b 1 l pp j 




SiE RN ST SP SV1 w 

J r - 1 J!l 1 i_r 1 ? J 1 . , 1 _ 


L / 


PQ7n pp T AlTPUPt r" 1 LLp l RnTnti Run 
C3f U PK L!N 1 L.J1K5 I lie J : bU 1 L?l DlU 




FrTTflW TRPTnTKlTLTP '■ Cu ■■ n 

c.l_ i | UN i_brJulNILri jS"; j 




39yn °p t NT 11 r n^u v rr etc Rr* rt 

JCJ/LJ k LT 1 IN Jl L UUWNI , pp , -3L n JL 3 1 






E0 


P PR U 1 ^l"! : UU b _ cl b cTL L 




RT qn RM-|._ '-. Ta; 
■ - ' , JU , _■ M _■ . . . _• 


an 

L_ !_ 


SQDPl DDHlTrUDBf 1 Ll 1 Tt?1 tt-i'f 
CpQU rK ir4 1 l_rlK2b L J.T J : ll 1 ila" C. 


PT 


3J3U 3i™l : UU3UDQCU 


90 


iHnn pd t nt 11 r nrnd^ 1 cc d m ct pc 




UKillb j . Kc.r4_dU JL. 


Cf 

— ■ 


P.M-fin Rmn^nnri 

JiWU uLiUJUUu 




CPl r RR" CE" Rp RT RI RH RM ~\ 
, 3 LT J l_ J J „ P L , PL. | j L | 3 m , 3 U , _ 1 i J 




cppU £L4 a - N 


c 1 
L 1 


PLiin PD l lhiT 1 *rnniiiiv.i ch-JHCVT rcn 

J *1U rhflNI UUUr-i • j. bf\'_l laT l jlJ 




T Rk! RF QV 1 11 ■ 


e-LJ 


■jin ■ — 1 1 — | DD T M - 11 f 1 — 1 O Ol | C HIM C r\ CM 

JUUU rKANi LLLK , K^bUN, bR, bn, 




Ki"""py i" cp~in t mtco ip c^ *► is 

NlKi UbrJULNicK ;Lc; ; 


ft4 


qqcspj TlaSA. t Li _ P . nriRI IRRPnn 
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92 GBOO FRINT P, IISPC1G3C* FOR C 5H 
3 EIMLT3 " 

BA 5310 PRINT"C5PCE03 H i : 13-2: 14 

-1:GDSUB9200 
R2 5320 IFI3-"" "THEN 1540 
El GB30 I F I <> 0THE-N6BBC 
40 5940 IFHltll5-OQRRlC115-lTHE 

N6B3D 

74 BB5Q R2-R1C11) 

C3 BB60 FORX-1TD11:R1CXJ-0:NEXT 

X:R1CU-R2 
EO GG70 GDT0B560 
AC 5330 IFK-RB-1THEN5910 
50 5B90 PRINT"CUP3a n 
BS 5300 GDTO6900 

93 63 LO R2-R1CH 
11 6S20 G □ S U E 1 1 30 
87 6330 N2-Q:0E- IS " 

CC 6940 F0RX-1TD10:D15CXD- ? '":NE 
XTX 

75 5350 PRINT ,, CD0UN,5E 1 SN J BT I SR 
, 5Y] M i KS ; - CSLpSO.SA. SD.SE, 

F7 59G0 FORX-1T01500;NEXTX 
5F 6370 GDT01B40 

8B 6390 PRINT W ECLHJ'' : PHINTCHRHTC 
1 4 J ; PR I NT"ET R^SDN , 5L , Sfl S3 SE 

F? G930 IFT1S-"L"DRT1S-"CSL: ,fc TH 
EN7030 

4P 7000 PRINT-caDUN.SPl.SA^R^K 
|SE.SR3 :ST t 5Y,SP,S£D CSN.HD 
p ST: C5L,SA, 5B.SE 

44 7010 FORX-ITOI^OONEXTX 

OD 7020 GOTO 1640 

GO 7030 ONX1GOT07040.73G0 

65 7040 PR I NT "T CLH 1 SLS3 r 5L 
M.SB»SB v n.3 CSP.SR.Sr.SN.ST 

51 7050 PJ?lNT ,i CDDk!N 1 SS 1 SE 1 SC 

.Sr.SD.SND :- CRVS0N t LEFT3"i 

CC 7060 PRINT'TDOUNJ IJ - IFFS-"Y"T 
HENRETURN 

3B 7070 GDGUB9G70; R7*L9 

56 7090 rFES-0THE-N734O 

3A 709D R2-E2 

DD 7100 BCSUB1130 

A4 711Q rFNLO0THEN7l40 

56 7120 PRJNT"CDQUN k SN,503 C5L 
SA.SB^E^L^S] CSF.SQ^RD^C 
SE^N.ST.SR^V: ";K5-'CUP2:" 
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: FCR21- LTD 1000 ; NEXTZ1 
87 7130 G0T07BG0 

31 7140 R3-N1 

AF 7150 FDRS-ITDL^E 

CI 7150 605UB1330- DS C 10 > -D15 : GO 

SUH1500 : L« S3-DSC1G3 
□E 7170 LFN2-0THEM7210 
5F 71B0 R3-N2 
03 7190 NEXT5 
92 7200 5-L^ 

05 7210 IFN5-0aR3<L5£XKEN7B50 
SA 7220 !FR7-1STHENFS-"Y ,, :60SUB 

7040; F5- n N ,p : R7-0 
A3 7£30 R7-R7+1 

C4 7240 PRINT"III]DWN,51jJ. 1 5A ! 5R,5N 
.Sl.SN.SGU CSL^SA^SE, 5E ? 5L: 
LSU 2 / t SF , SL , SO , SU : " j K£ 

65 7250 G0SUBBB6Q 

EO 7260 IFFl5-' , Y ,i THEMFlS-"N ,> :S0 
T0730D 

A5 7270 IFE4-RTHEN7300 

□3 72BQ R2-E4 

A7 7250 GOT D7 100 

32 7300 PR I NT "£001^3, SL , Sift , EE , 5 

e,sl: csp.sr.si^n.st] uses 
□ . 5M n SF , sl.se.st.seh" 

□B 7310 FGRX-lTDlOOOiNEXTX 
A5 7320 GC5UBL4B0 

7330 G0TD1E40 
3E 7340 PHINT m CDDUM 1 SM 1 5D: C5L p 

Sft 1 5B,5E a SL p SSD CST.SD2 IISP. 

sh,si ,sim p st: h 

E2 7350 GDT073LG 

A5 7350 PHINT'TCLR , 55 , 5 1 , SN a SG , 

5L,5Ej £5L i ,Sft 1 5B N 5E l 5LD CSP> 

SR, SI a SiM, ST3 |F 
34 7370 PRINT"CD0WN t 5S i SE 1 5C J 5I 

.SI.SO.SND -- [ RUSON , LEFT1 M - 

TS 

Fl 73B0 FRlNT":nnUN 1 SK l SE 1 SVJ ; 

- CRUS0N r LEFT3 ,p ;KS 
BO 7350 Fl$- J, V K,fc rG05UBBE70 
16 7400 GDTD7U0 

27 7410 PRINT'TCLR] " : PRINTCHREC 
14 >: IFE2-0TKENFRIMT"CCLR, RUS 
□N.SA.SLg} CSH.SE.SP.SD.SR^ 
M*:S0T06530 

19 7420 G0SUB1470 

73 7430 PR!toT#4;FEINT#4 1 " CSS S S 
E K 5C,5T,SI n Sa,5N: :- CLEFT] 
i TS : CST.5Y, SP P SE: C LEFT 
: ?| ;T1£ 

OB 7440 ELDS £4 : GdSUBl -Sc: 
□ B 7450 FR1 NlT^CCLR, RUSON , 5A a 5L2 
1 HSR , SE . SP , SO .SH.STJ"! PRINT 
-CDOWN l SS i SI i SC t ST i SI i SO fc SlM3 
CRUSQN 1 LEFT3" i TS E "CRUSQF 
FD CST^Y^P.SEJ CRUSON^'iTl 

33 7450 IFTIS-"T"DRT1S-"CST3"TH 
EN75QQ 

os 7470 frint ,p cddun: 1 CS0,5R: 
s csu.spj" 

BB 7460 GETXS : I FX£ ta w "THEN74BQ 
SI 7450 R3-UALCXE3 : s FHB-GORRS>S 

THEN74B0 
12 7500 IFE2-07KEKB460 
14 7SIQ R2-E2 
73 7S£0 GD SUB 1130 
EC 7530 LSClD-KSi 
A3 7540 R3-N1 

CE 7550 IFTl3- fr, T"DRTlS- ,7 C5T] M T>l 

EN829G 
80 7560 IFR8-1THENB07Q 
47 7570 IFIM1-0TMENLECS3- M :SN, SO 

U CSE^N.S^SR^I.SE.SSr^B- 

S ; GDTD7E40 

34 7930 FDRS-STOSO 

71 7530 GOSUB1330: D3C10)»D15: GD 

SUB 1500: LSC5J-DSC10) 
6A 7G00 IFi\]£-0THEN764O 
6A 7510 R3-.N2 
BE 7 5 20 NEXT5 

F9 7530 FRlNT'TDObll^Sli^S^SR.SN 
h SI a SN,SG: - CSS3T0RE CSQ]UE 



RFLDUI CBUS0N1"5KS 
□A 7640 IFE4-RTHENF2S-"V" : BQTQ7 
870 

98 7650 R2-E4:F2S- ,h N ,p 
87 766Q 305UB1L30 

BF 7G70 PRINT#4 
IB 75BC DFEJy 7,4,2 

OF 7550 X£-' k AAAAA RAAAAA^^A 

A A AAA AAA AAA A AAA AAA A" 
5B 7700 XE-XE+'TSFCBIlAAAAA ci^A 

A A AAA A A A A A A A AAA AAA AAA AAAA.A A A 

3C 7710 PRINT#7 r X3:CL09E7 
30 7720 f FF£E-"Y"TKEN7750 
3C 7730 PR1NT#4 P "CSK.SE^Y"} ; - " 
a CHRSCa30 ,L5C1) ,CHR£C29 5 , "C5 
K # SE t SYii^ r.CHRSCBSX.KS 
43 7740 GOTD7760 
S3 7730 PRlNT#4 f "CSK.SE, SY3 j- " 

,CHRScea3 ,lsci) 

FHr 7750 Rg-l;XS-"" 

£7 7770 R3-N1:N£-N1 

S6 77B0 IFN2-DTK£NXS-"i:SM 3 603 C 

5E , 5N , ST , SR, SI , 5E a 55] Jfc : GCT07 

BIO 

5E 7790 IFNa-OTHEN7B10 

72 7BD0 S0SLJB1330:DSC10J-D1S:G0 

5UB1SD0 
40 7B10 R3-R9+1 
GA 7SS0 0PEN7.4.2 

SF 7B30 RS- H S9 AAA AAA AAA AAAA AAA 

AA AAAA^ A AAA A AA A AAA " 
33 7B40 RS-RS+" 93 A^AAAAAAAAAA 

AA A AApfnAAAAAA^A A AAA AfiAA " 
Zh 7B50 PRIMTtt? , R% : CLOSE? 
BF 7BBC EFF2S- ,, Y ,J ANDR9>5TKEN925 

0 

EF 7Q70 IFF2E- J, Y H TKEN7540 

49 7380 IFR9>SA^J0N2-0AN^F3S- J •Y , ■ 
THENF3S- " N " : GCTDB250 

7E 7BS0 I F N5 <> 0 AN D RS < m S T H EM7 3 BO 

07 7900 IFR9>5THEN7950 

50 7910 IFXS- jr>, THEN7340 

23 7920 PPINTtt4 a R9-l P LSCR93 5 CHR 
SCaa^EB-l, ;D1B- XE-" M :F3i-"Y 

11 7930 S0T07B10 

EE 7940 PRr!MTtt4,R9-l i LSCP3 3 

24 7950 GOT07S1D 

53 7960 PR[NTtt4 1 R9- 1 , CURE t 160 } C 
HRSCaB^RS-l, DStlOD ; IFN2-0TH 
EMF3S« IJ Y" 

■IF 7570 GDTD7990 

38 79B0 FRINT* , lpR9-l 1 LSCR9 3 f CHR 

SC2B>,R9-l t DSC103 
E4 7390 R3-NS 

43 9000 GOT 07 790 

9F 3010 PRINr'CDDUiNS.EIGHTl^SF 
,5R a 5T I SN I 3T: CSC ,50.911,3? ,5 
L,SE a ST 1 3E: i 5n] 11 

□7 6020 CL0SE4 

FO BD30 PRINTCHREC14};0PEUS l 4 i a 

:FRIIMT**B:CL05E5 
AF 8040 nPENB.4, 10 : PRI NT#S : CLOS 

EG 

45 0QSD FOCRX^lTOISOOiNEXTX 

99 SOGO SGTD1640 
71 8070 PR LNT#4- 
93 60B0 OPEN? ,4, S 

FA 0090 XS m "AAAAA AA AAA AAA AAA 

A A A AAA A A A A A A A AAA AAA " 
SO B100 XS-XS+"C3PC5DAAAAA AAA A 

A A A AAA A A A A AAA AAA AAA A A AAA A A A A 

HP 

ED 8110 PRINTtt7, XS: CL0SE7 

81 SI 20 FRlNt#4 , 11 CSK , SE, SVD : , 

B3 6130 FRINT#4: R9-1 
C5 8140 0PEW7 h 4 s 2 

7C 8150 J?£-"35 A AAA AAA A A AAA AAA A 

AAA AAA A AAA AAA A AAA AA " 
5E 81G0 RE-RE+ IJ 99 AAA AAA AA AAA A 

AA A A A A A AA A AAA A AAA AAA AAA 11 
23 6170 PRINTtt7 a RS:CL05E7 



Dl 8190 lFR3-OTHENPRINr*4, 1, M C5 
W t BQ3 CSE^N.ST.SR.SI .SE.SSj 
GDT08250 

LL B150 G05UB1330:D£<1DD-D1E:GO 
SUB 1500 

OB 8200 PRINTW4 p DEC ID? r PS-R5 
+ 1 

7E 9210 IFN2-OTHENB260 

76 8220 R3-M5; GOIOB150 

1A B23Q IFNS-OTHENS250 

E7 B240 R3-W2 

55 92 SO GOT 03500 

OE 6260 [FE4-RTHENB010 

15 SS70 R2-E4 

7F 8EB0 GGT07520 

B2 9390 □PEN7,4 1 2 

73 3300 X5-"AAAAA AAA AAA A AAA AAA 

A A A A A A A A A A A A A A A A A A A " 
FG 3310 PRINTtt7,X£:CL0SE7 
GC B320 PRINTW4 

BB B33C PRINTW4 , "CSK, 55 , 5Y: : - 11 

a CHRSC29^ S XE 
GO B340 PRINT#4 
BB 6350 DPEN7 ,4,2 

B3 83S0 R£- ,i ' A A AAA AAA AAA AAA A AAA A 

AAAAAAAAAAA AAA A A 13 
CB 0370 R 5 R 3 " AA A A A A P A AAA A A AA A 

AAAAAAAAAAA A AAA AAA A" : PRlNT**7 

,R5: CL0SE7 

CO 63B0^ IFR3-0THENPRIWTW4, "CSW, 

so: cse,9M i ST l 3R l si .SE.SS: 11 : 

GCT03860 
□2 S330 G05UB:330 

21 3400 OSC L03-D1S 

2G B410 IFN5-0THENB44Q 
FO B42C R3-N2;GD5UB1330 
BO B430 QSC10)-QSClQ3-r-Dia 
GD 6440 GDSUB1500: PRINTS, DSC 10 
3 

51 8450 IFN2-0THENB260 
7C B4B0 R3-N2 
CD B^i70 GOT0G3S0 

CO B48Q PRlNfCDDUN, RIGKT10.SN, 
SOZ CSE a SN 1 ST,SE p SR J Sl ,5E,SS 
] CSP.SR.SE.SS.SE.SNpSTD" 

CC 6490 GOTOeOfiO 

31 6500 PPINTCHRSC14? sFRINT'TCL 
R.RVJSDN.SS.SI a 5N,SG 1 SL a SE] C 
5P , SE , 5P ? 50 , 5R , STU m 

SE 8510 G0SUB1470 

EE 6520 FRINT'TDD'JN.SS^E^CST 
.SI.SD.BN::- CRU9QN, LEFT3 H a T 
fi? n £RUgOFF3 CST^Y.SF.SE: 
CRUS0N,L£FT3" i TlS 

IF 8530 PRIWTt+4 

41 0=40 PRINT*t4, "CSK, SE f SY3 : - C 

hf(-SDN: ' ; ?RINTt*4 
SD 0550 IFN1-OTHENG010 
A3 B550 R3-N1 
07 B570 G0SUB133D 
00 B5B0 RS-Dlffi 

03 BS9Q IFTlSO "T 1P AMDT15<> "tSTU 

il THEN9G30 
FA 6600 IFN5-0THENB530 
20 3610 R3-N2:GDSUB1330 

22 B520 RS-RS+D1S 
25 0630 PRINTtt4 p RS 

FS B640 IFNE-GTHENCLDSESiGQTDBD 
10 

9E B550 R3-N2 
88 B560 GOT0BS70 

BG BB70 0PEN4 ,4,0: 0P 1 £N5,4 1 7; PRI 

NTtfS 
BE 8660 CLOSES 
C3 8690 I FR"F3THEN RETURN 
86 6700 I NPUT 11 L ODUJN , SW] 0 , OF LI 
PER LABEL 11 ; L£ : F6-R : FSS- 

,p N " 

FA B710 INPUT i, :D0yN,SN30 ( OF CH 

ARACTERS PER LINE w ; 
BF 6720 INPL'T'^DOUN.SNDO. OF Li 

^fES BEtUEEN LABELS ",S* 
4S 6730 PR t lNT ip :D0UIN,5I:5 LINE C 

EWTERING REQUIRED (CSY3/CSN: 

5" 
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70 0740 GETL3: IFLSO "N W AIYDLS<>" 

y ,p THEN6740 
£0 S7S0 FRINT"CDDUN, SI 15 CHARAC 

TER CENTER IMG REQUIRED CSV] 

65 Q7B0 GETC5: IFCS<> ^"GNDCSo " 
Y"THENS760 

8770 PR I NT ' N t DOWN > 5A] RE THESE 
ADDRESS LABELS CCSV:/CSN3V* 

: FORX- LTC33 s 55 £ X 3 - " " : NEXTX 
EE 87S0 GETGSl IFA£- Jh N ,s TH£tteB3Q 
DF B730 IF*=IS<> J, Y"THEN97B0 

of seoo 55ci3- s,ip js^ca?-" "issc 

95 8810 S£CS5- ,> CSPC1D3":S£C75- ,N 

C5FC1E2 H :S:S(:B1-":SF[]142 JB 
C9 SBB0 SEtaWCSPClEJ" 
0E BBBO S»l : Da- " 11 ■ FDRX m lTDC?; : DB 

-DS+'TSXD'^NEXTX 
06 BB40 RS-INTCC*/353:R9-R-<;RB 

*35 3 : RE-"" 
3 A BB50 RETURN 
FC BBBO IFF3S» J, Y"THENB35i: 
BB BB70 FSS- J7 Y": INPUT"C DOWN, BHD 

□U hany LABELS " ; N-* 
47 BBBO PRINT "LDDtdN^SI US LINE U 

P REQUIRED c£gY3/CSN30CUP53 ,p 

BBBO GETX5: ] V >' 35 - " M "THE \ P P 1 N T 

"CDOUNe3 ,s :GDTDBS50 
SO BBOO IFXS<> "Y"TKENBQ!jO 
7F BBIO F0RX3-1TDL*: PRINTttH, 

NEXTX3 
CT B3E0 LFS^-OTHEMBB^O 
BE BBBO F0RX3-lTQS^:PRINTtt4:NEX 

TX3 

BF BBMO GOTD8880 
F7 H9S0 X5-0 
BB S°G0 

60 8970 1FX5>N?;THEN91Q0 



3B 


99 SO 


IFLa-STHENSDlC 


55 


92SD 


print "ccnn *i 


55 


8330 


IFLS- M ?J ,J THEN3010 


3F 


9270 


F0R1-1T0I3 


70 


3000 


X6-INT<<:L^-S>/E3:FGRX7- 


E6 


92BD 


PRINT"CCSD " ; 




1T0XB : PR I NT»4 : NEXTX7 


35 


9590 


NEXT I 


U? 


3010 


FPRX3-iTaS 


F3 




FRINT-'CCGIT; 


2D 


80B0 


IFX5> 1THEN3110 


AO 


9310 


FGRI-LTDI3*1 


S£ 


3030 


IFflS-^V'THENRS-INTCcC^- 


F7 


9320 


print-clefts " ; 




EO^/PD : RS- FJ n j GDTD3O70 


50 


3330 


NEXTI 


BA 


9040 


IFC5- H N ,, THEN9Q30 


93 


3340 


GETUSj iniS-""THEN9340 


CE 


9050 


RS-LENCLSC X31J 






BF 


SOGO 


R9-INTCCC^-KB)/E3 : RS-" H 


EB 


9341 


IFI1S-", "THEN3310 








EC 


9345 


IFIlE-CHR5t44>THEN9340 


30 


3C70 


FQRXS-LTDP9: HS-PS+" " : N 


17 


9350 


IFllS-CHRSC13JeDTD3550 




EXTX5 


DB 




IFI1B-":"THEN9910 


Dl 




LS CX3 3 -RS+LS C X3 3 


35 


9370 


IFIlS-CHR£d20]iTHEN8440 


BF 


9G90 


rFX3>3THENLSCX3J-SBC3^+ 


79 


33 BO 


IF HBO ,< : ii THEW3430 




; GDTGB1 10 




3330 


I-LENC IS) 


BE 


3120 


LSCX3)-S*<X33+LS<X3> 


CE 


9400 


FORI1«1TOI+1 


-D 


9110 


PRINTtt4,L«CX33 


S3 


3410 


FRINT-CLEFTIT ; 


AA 


9120 


NEXTX3 


BA 


94=0 


NEXT 1 1 


F4 


9130 


XF5-L3THEN91S0 


E3 


9430 


GDT09250 


FB 


bi-c 


FORX-lT0L^-5-XB: PPlNt*t4 


95 


3440 


IF1S-" "THEN934D 




:NEXTX 


92 


3450 


IFLENC I£i-1THENIS- " H ; SO 


AE 


3150 


IF5*-0TKEN91 70 




TD3470 


BF 


81B0 


F0KX3-lTCS3te: PRINT* 1 * : NEX 


D4 


94 GO 


1S-LEFTSC IE.LENC ISD-1] 




TX3 




FC 


9470 


IL5- Jh C LEFT t C@ , LEFT D " 


F3 


9170 


GOTO BBBO 


EB 


9490 


CEnT3353D 


CB 


9190 


F0RX3-1TD5Q:LECX3D-" M :N 


76 


9490 


IFUS<" ph THEN3340 




EXTX3 


DB 


9SO0 


IFI1S> <P Z"ANDI1S< TCJI "G 


87 


9130 


RETURN 




QT09340 


SE 


3E00 




39 


351C 


IFLENC IS3-I3G0TO334O 




* * 




B2 


35EC 


IS- L B+- 1 IS l IF I IE- " D "THEN 


DS 


aeio 


REM •SUBROUTINE TO INPU 




I1S- 


I IF 




T* 




53 


9G30 


PRINTL1S; 


DD 


3E30 


Rtn *A ALPHANUMERIC DAT 


BE 


9S40 


80TG3340 




A* 




09 


9550 


I FLENC 14 5< i4THEN3 340 


ID 


BE'jO 


E£n *F I ELD . 


E4 


9SE50 


PRINT 




m 




C5 


3970 


I-UALCLEFTAC IB, 1JU 


BB 


32*10 




34 


35B0 


IFI-OTHENRETURN 








£9 


3530 


I -UAL U ED : RETURN 


Bl 


92 SO 


I M " 









EXTENDING BASIC continued from pJO 



routine, because it isn't a subroutine 
ending with an RTS, as we will see 
in a minute. 

First the routine tests to see if 
there's enough space on the stack to 
do a GOSUB. The routine needs three 
bytes space on the stack. This value 
is loaded into the accumulator {line 
1 ISO), and then the test itself is made 
(line 1190). If thee isn't enough space 
left on the stack, routine SA3FB ends 
with the dreaded error report k4 OUT 
OF MEMORY*, 

Otherwise, five bytes are pushed 
onto the stack: the first two bytes point 
at the parameter after the GOSUB 
command. Remember, S7A/7B are 
part of the CHARGET routine and, 
as such, point to the next character. 
This is saved by pushing it onto the 
stack {lines 1200-1230), 

Next, the current line number 
which is contained in zero page $39/ 
3 A is pushed onto the stack (lines 1 240- 
1270), Finally, the token code for 
GOSUB (SSD) is pushed onto the 
stack (lines 1280-1290). 

Whenever a RETURN command 
is given, the computer searches for a 



block of data like this, starting with 
SSD, Then the stack pointer is 
modified so that it points to this block, 
and the block is pulled back from the 
stack. Now the Basic program flow can 
jump back to the proper line, and the 
character pointer in S7A/7B will again 
point at the parameter in that line. AH 
that has to be done now is find the 
beginning of the next line so that 
program execution can continue as 
from there. 

In line 1300 of our routine we call 
the GOTO routine, which makes the 
Basic program jump to the subroutine 
which has been called. Finally (line 
1310), we jump to the ROM routine 
at SA7AE which executes the next 
command. Please note that we jump 
to this routine as opposed to not 
returning to it, as with the other 
routines. Can you guess why? 

In lines 12004290 of our GOSUB 
routine we have pushed five bytes onto 
the stack. This changes the stack 
pointer by five locations! Therefore it 
would be impossible to use an RTS 
to return us to the proper routine in 
line 400 



In the next article, Fd like to 
expand on GOTO and GOSUB by 
developing a labeling system for Basic 
which works in the same way most 
assembler programs. That is, you can 
declare a label and then use GOTO 
and GOSUB to jump to the line 
contained in that label. 



Figure 1: ROM Routines 
Used 

SAD8A Evaluate an expression and 
put the result into flp accu 
#1. 

$B7F7 Convert value in flp accu § I 
into integer and put result 
into zero page $14/15 and 
Y-register/ accumulator. 

SA8A3 Execute GOTO line number 
contained in SI 4/1 5. 

$A3FB Test to see if there s enough 
room on the stack to push 
the number of bytes onto the 
stack which is contained in 
the accumulator. If not, give 
error report "OUT OF 
MEMORY" 
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YOUR COMMODORE 
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Send your requirements to 
ANNA EDDIE 

CLASSIFIED DEPARTMENT 
ASP LTD 1 GOLDEN SQUARE 
LONDON W1R 3AB. 



SOFTWARE 



SPECIAL 
OFFER 



MAIL ORDER 



YOUR COMMODORE 

SPECIALS 
TECH DRAW 64 - A 

comprehensive technical 
illustration aid for C64 
owners tor both disk and 
tape. Commands available 
include LINE DRAW, RAYS, 
BOX, CIRCLE, ARC, 
ELLIPSE, FREEHAND, FILL, 
HATCH & TEXT. Wipe copy, 
move and rotate, save and 
load or print your drawing ail 
for £6.95 tape or disk. Order 
Codes TDG4T (tape) TD64D 
(disk) 

Full details in Your 
Commodore July 1987. 

SPEEDY ASSEMBLER 

Your Commodore's very ow n 
Assembler, a 100% memory 
resident program for loading 
from tape or disk, featured in 
the Your Commodore 
Machine Code Series and 
now the Y.C. standard 
assembler on ly £9.95 Tape or 
Disk. Order Codes 
YSPASSD (disk) YSPASSR 
(tape) 

Order from Your Comm- 
odore Readers Services at 9, 
Hall Road, Maylands Wood 
Estate, Hemel, Hempstead 
Herts HP2 7BH, Please make 
cheques payable to A.S.P. 
Lid., or telephone your 
Access/Visa order on 
0442 41221 



PUBLIC DOMAIN 
SOFTWARE FOR THE 

C64/128. 

Ju$l in Tram !he USA 1SD dlBfcB-full 0.1 
garner business programmes, utilities. 
40uciJi*unal. mgitic, graphics i more! 
Sentf of phone far -free 

Kingsway Computer -Servl-ces 
□ept 4. 140 Rustidale Road. 
Shelf ield SS 90 E- Tel: 0742 5&S42S 



ONLY POOLS AND HORSES 



(and fixed odds) 

No gimmicks. Programmes. 1or 
punters from the G€N\JtNE experts, 
first grada software at sansiblc prices 
If you want to 
WIN REGULARLY 
phone 051 - 33G - 266B or sand SAE 10 
BOKpft. V.C- 65 Allan's Meadow, 
NuSton.S WirraL,L64flSQ. 
Commodore 6V12B- 



FOR SALE 



TELECODE Freer. Locate STD 
codes rapidly. Inlercode Finder. 
Locale international codes easily. 
Psychology plus. Analyse your 
characler traits, usable with/ 
without Geos, fully documented. 
£9.00 C64/C128 disk only. 



WHY NOT FAX US 
DETAILS OF THE 
ADVERT YOU 
REQUIRE OUR 
NUMBER IS 01- 
437 1006 



T.C. COMPUTERS 



Tal: Wantage 02357 GD177 

AMIGA A 500 - T.V. Modulalo* . . ,£349.00 
AMIGA A5D0- 10&4S 

(Ne* Steraoj- £59S«.*0 

AMIGA A50O * 1Mq Disk Drive . . .M39.0G 

AMIGA A5Q0 SUPtH PACK 099.00 

AMIGA Sy5t*m50a Colour 

Alio Alert ST and PC C&mpatlblw 
including Arnjtrad availablfl 
ENQUIRIES' WELCOME 

PIBM9 WJnfl S.A F lor cltfiailfi:- 
MOW AT:~ 

12A Barnards Way, Charlton 
Heights, Wantage, Oxorl 
OX12 7EB 



BMG4/128 Software Library Lale&t 
titles, 7 day hire, all tapes El. 60 
disks £2. For lis! SAE to Mr C. 
Anderson. 14 Chippendale Court, 
Betfasl RTiO ODU. 



YOUR 

COMMODORE HAS 
RATES TO SUIT 
ALL ADVERTISERS 
LARGE OR SMALL 



SERVICES 



COMMODORE SUPPLIES 

C64 Power Pack ££17,9* 

64 Data Rec £19.95 

C3N (C.16) Data Hec E1&B5 

C1B Power pflCk 

Neos Mouse £ Chaasa £19,95 

Prices include VAT & PflP. Ghq *o; 

OMINDALE LTD 

23 Curzon Slreet. Derby. 
Tel: 0332 291219 



JOHNS COMPUTER 
STORE 

(Home a Businsss Systems) 

COMMODORE AMIGA A50G 

<!nci. Modulator 4. Software pack) C3&9.M 

COMMODORE 0$4 HOLLYWOOD 

PACK El^.M 

COMMODORE ENTERTAINMENT 

PACK C1H.H 

Pbtfmfot 6ataih 

FA* lurth#r mill ord*r offtrt (Wl pries* 
)ficluilvi-4ri VAT) contact 

J.C-S. 93 Graham Slreel, Airdiie, 
ScOlland M|_$eBU 
Tel: 0236 69874 



DISCUSS YOUR 
ADVERTISING 
WITH ANNA EDDIE 

01 - 437 0626 



DISKS 



Why Take Fisk3?_._Euy Branded 
disks, 

GOLDSTAR 3V. U DS/DD DISKS 
Boxed in lQ's, 100% error free, 
Branded, Fully Guaranteed, includes 
Labels, 

£8.30 + VAT p« box of 10 

PLEASE ADD 87p + VAT FOH P« 
Goods sent same day as order 
received, 

P.V. TUBES (MAIL ORDER 
DEPT.) 

IQA Abbey Si., Accrino^oan. Tjucb, 
ftRR 1 EE 

T*li (0254 ) 36S3 1/3361 1 /39Q93G 
Fax: 0254-395361 

PARTNERS: Mis, B . Ciacki»ll/Mr. B. 
Cue Idle LI 



Repairs 
Guide 

CALL 
ANNA EDDIE 

■ ■ 



O N 

01—437 069 9 



[]«« to 



FDR FAST. RELIABLE AND PROFESSIONAL 
REPAIRS AT COMPETITIVE PRICES 

P M ENGINEERING 

UNIT 260, MILTON SCIENCE 
PARK, CAMBRIDGE CB4 4WE 

We can also supply Hardware, Software, Blank Disks, 
Accessories and Spare parts. 
CB4 Repaid £19.95 inc. VA T (pip FREE) 




WSA 
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Repairs 
Guide 

CALL 
ANNA EDDIE 
Q N 

0 1 - 4 3 7 0699 



REPAIRS 



AMIGA ATARI etc, 
MONITORS & ALL ADD ON,s. 
AMIGA UPGRADES AND MOD.s 
All estimates FREE 
Prices from only £19.50 
Call or post FAST TURNAROUND 



PVS ELECTRONIC COMPONENTS 

244 Deansgate Court, 



Deansgate, Manchester M3 4BQ 
Tel: 061 831 7086 Telex 668986 
Fax 061 832 6934 



"COMPUTER KAPUT?" 

PET V1 C30 
PLUS4 G16 
064C12A 
AMIGA... 

FAST 
EFFICIENT 
SERVICE 

FOR REPAIRS CALL 
01-861 2635 
(NW LONDON-HARROW} 





COMMODORE SPARES & REPAIRS 

B0B1UHQ1 UlU 

551 0 ., E9.B3 

5669 ,.£32 5* 

ttJd 

W1SIO £11 JZ5 

WlBZr-W .EH1.95 

90123^1 siia.sB 

9G122S-D1 £B.3d 

§501 

aaeo tai.sa P 

S7D1 CAM -•' v TiiB| K 

CfitPawcfuuk Hit SIS / 1 

VIC 2D MOD £1:J_B5. ™ / J P 

D54 CaBMtle Urvil £32.00 -* * • 

D128 PomanpBCK I99.DO 

INCL. YAT&P&P 

Dep1 4C. 14 RiOGEWAY ROAD, SALISBURY, 
WILTSHIRE, SP1 3BU. TEL: (0722) 



THE TELEPHONE NUMBER 
AT THE TOP OF THIS 
PAGE IS FOR 
ADVERTISERS ONLY. 
ANNA EDDIE IS UNABLE 
TO ISSUE DETAILS OF 
REPAIR CENTRES OTHER 
THAN THOSE 
ADVERTISED HERE. 



SPARES REPAIRS SALES 

all makes of computers A peripherals 
Fast Reliable Guaranteed Service 

Contacl Dave Barber H.Eng., AM I ERE 
db ELECTRONIC SERVICES 

2ft5 Meadgate Av#nue, Gt. Baddaw, 
Chelmsford p Essex CM 2 7NJ 
TeL 0245 - 260874 



COMPUTER REPAIRS (UK) 

Specialist Repairs To Afl 
Commodore Equipment 

* From only £35 - VAT. 
*■ AN repairs guaranteed. 
* Delivery & collection service. 
* Trade contracts. 
# We a : so buy/sell s,'hand Commodore 
Equipment 

HEMEL HEMPSTEAD 

2 Austins Place, High $tr?el, 
Hemel Hemps-lead. 



CROYDON COMPUTER 
CENTRE 



25 Bngstock Road, Thornlon Heath. 
Surrey, CR4 7jJ Tel: 01 683 2646 



COMPUTER SERVICING 



{Est d alne* 1979) 

We repair — on the premises — quick 
turn round 

* Commodore 

* BBC & Erectron {Approved Service Cenlre) 

* Arn&trad & Torch (Approved Service CenJre) 

* Disc Drives, Printers, Monitors 
Mail Orders by phone Access a Visa accepted 



VTS COMPUTER REPAIRS 



01 - 407 9829 

Simply send your unit to the address below 
securely packed wilh fault description and 
t^x fee. 

■ COMMODORE, AMSTRAD, BBC. SINCLAIR 
- MORE £2a.*>0 



VTS COMPUTER REPAIRS 



12 Lyly House, Gt. Dover Street, 

London. SE1 4EQ, 
FAST, RELIABLE TURNAROUND 



COMMODORE SERVICE CENTRE 

Fas1 repair service ior;- 

* VIC 3D # CW+4 * CBM 64/CBM C&** 

* CBM 128 * AMIGA # DISC DRIVES * 

* a»l Other makes as wall * 
All unils repaired to original &rarrtar<J fry tully 
qualified staff. All repairs guaranteed. 
+ We stock speres fqr all computers # 
Mail orders and phone orders, access ft visa 
accepted. 
Persona* callers always welcome. 
* On 1he premises repairs, quick turn around * 
QUANT AM ELECTRONIC SERVICES, 
33 City Arcaae, Country, CV1 3HX. Tel: Z2U3 224$$2 
□ r Q926 337E4& 



COMMODORE REPAIRS 

f with FREE extended guarantee) 
COMMODORE 64 £2fl,70 
COMMODORE 128 £3€.70 
COMMODORE 

C16/+4/VIC 20 £2fJ,7§ 

Price is all inclusive and we guarantee the 
whole computer torsi* months 

KPR MICRO, 

34, Petunia Crescent, Springfiefd, 
Chelmsford, Essex CM1 SYP 
Tel: 0245-46^554 



Computer repairs 

Fixed Super Low Prices! 

Inclusive of pan^ labour and VAT 




FIRST AID 
FOR 
TECHNOLOGY 



SPECTRUM 
C64 

C1& 

VIC2D, C-4 
BBC 



1 week turnaround Collection /delivery available tor Iwal area 
* SUPER OFFERS * 



£14 fno, + Free Game 
£22 Ire, + Free Game 
£1fl Inc. 
£22inc. 
£32 Inc. 



ELECTRON 
COMMODORE 1541 

DISC DRIVE 
SPECTRUM 128 
C 6 4 P S. U for sale 



£32 

£3S Inc. 
in Inc. 
£20 Inc. 



Plwtse enclose payment Hrfto Ham - 3 ntomh i*wr*n*y ort repatr ^teasa an-cJosa adv^ repair 

W.T.S. ELECTRONICS 
Y.C Studio Master House, Chaulend Lane, Lulon, LU4 8EZ. Tel: 0582 431949 

All fibrils resanwd. 



HINDLEY ELECTRONICS 
COMPUTER REPAIRS 

S TANDARD CHARGES 
Commodore BA £25.00 
Commodore ** £25.00 
Commodore C16 £21.00 
Cam modare VlC 20 £1 1,00 

For cornmocfort tC'S and Disk Drive repairs please 
ring for derstfs. 
All pricHB inclusive of VAT and rslurn posUfla 
including Iniunnae 3 months warranty on napaira 
with Sveiage 24 hour tLimaround. 
Dept YC. BT Uflrttl SSf e*t, HFndr*y, Wigan. 
Tel: f 09J2J 522743 
{The standard charge may rtal appfy fo macftintt 
wAffl mutiipte teults) 
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Readers Problems 

Though the Commodore 64 is one of 
the world's most popular 
microcomputers, it can be very 
difficult to find speecifie information 
about your particular machine. 

At the Your Commodore office we 
receive literally hundreds of letters 
from you, our readers, on a wide range 
of subjects ranging from the simple 
*Can you give me the telephone 
number for r .,\ to the more complex 
Tm trying to write a program that uses 
a split screen. How do I do it?' 

Unfortunately, the volume of mail 
received has become so great that it 
is impossible to answer every letter and 
still mange to publish a magazine each 
month. 

For this reason we have felt it 
necessary to produce a number of 
guidelines for getting information 
from us. 

I) We cannot guarantee to answer 
every letter sent to the magazine. 
Should it become apparent that a 
number of readers are suffering from 
the same problem, then we will reply 
to the letter via the Letters page. 

2} A new helpline has been set up. This 
will be open for your queries on 



Tuesday and Thursday afternoons 
between 2.00pm and 4,00pm. We will 
not be able to deal with your telephone 
queries at any other time. If our 
technical adviser is not available when 
you ring, then a message will be taken 
3) If you are having problems with one 
of our listings, can you please let us 
know in writing. This will enable us 
to see if a number of people are having 
the same problem. When a common 
problem becomes apparent with a 
program, then a correction sheet will 
be issued. Enclose a self-addressed, 
stamped envelope and we will send you 
a copy of the correction sheet as soon 
as it is available. 

We are sorry that it has become 
necessary to instigate these rules. 
However^ we are sure that you will 
agree with us that the more time that 
we can spend making Your 
Commodore the most informative 
magazine around, the better. 
For program queries write to: 
Program Corrections 
Your Commodore 
1 Golden Square 
London 
W1R 3AB 

If you wish to telephone then call: 
0M37 0626 Extn 212 



Commodore Where Are You? 

At the Your Commodore office we are 
repeatedly asked for the address and 
telephone number of Commodore 
U.K, Many people, alter referring to 
their computer manuals, believe them 
to be based in Corby; 

The Commodore plant at Corby 
was closed down some time ago. 
Reproduced here you will find the 
correct address for Commodore U.K. 

We suggest that you write this 
correct address in the front of your 



computers manual for future 
reference. 



Commodore Business Machine, (UK), 

Commodore House, 

The Switchback, 

Gardner Road, 

Maidenhead, 

lU-rks SI 6 7XA. 



Tel: (0628) 770088 



The Nibbles 



By Alan Batchelor 



William Tell 

If you have been typing in the William 
Tell program over the last few months 
you will be pleased to dole that it is 

I completed in this issue . 

In order to get the program to 

I run conectly you should follow the 
pnr>ceduie below: 

1) Make sure that you have the 6 Ba- 
sic loaders to hand, 

2) If using cassette mate sure that you 
have a new one handy and that it is a 
long one. 

3} Type in and SAVE the program 
below onto your disk or onto the cas- 
sette mentioned in 2 above. If using 
cassette change the to ,V%. 

4) Turn OFF and ON your machine, 

5) LOAD the fust Basic loader and 
RUN it, A new program will be 
saved out once this is finished If using 
cassette make sure that you place the 
new cassette info ihe recorder before 
you RUN the loader. The new program 
should be saved directly after the pro- 
gram you have just entered in 3. 

6) Turn OFF and ON your machine. 
7} LOAD the next Basic loader and 
repeat the steps 5 to 7 for all femaining 
Baic loadeis* 

8) To start the William Tell program 
simply LOAD and RUN the first pro- 
gram that you SAVEd. This will then 
LOAD and RUN the rest of the game, 

PROGRAM: WILLIAM TELL 



J0 IFA^cmffiNLOAD 'WTr\8 h l:A-A+l 
20 IFA=lTHENLOAD ,, WT2 ",8, 1 :A=A+l 
30 1FA=2THENL0 AD" WT3 ir ,8, 1 :A=A+ 1 
40 IFA^^THENLOAD^ WT^'^^A^A+l 
5ft JFA^THENLOAD ,B WTy\lU:A=A+l 
60 IFA-5THENLO AD M WT6" ,8 , 1 : A=A+ 1 
70 SYS 35191 
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ATARI 
ST 



IBM PC 




APPLE 
MAC 




Doctor Ot 



ACORN 




COMMODORE 
64 



AMSTRAP 
CPC 



THE TIME HAS COME . . - 

Britain's First Music Magazine for the Computer User! i 

Featuring Reviews on Hardware & Software across all formats - Mrcro Music is ^ 
the magazine the Computer Musician has been waiting for. 
Available 10th March from all good Newsagents 



he* 




INTERNATIONAL 





Quite simply the best football 

simulation available for the 64 

Nothing short of superb. 

ZZAP 64 

AVAILABLE NOW FOR 
COMMODORE 64 
£9.95 tape £12.95 disk 

Coming soon tor Spectrum & Amstrad 



Audiogenic Software Limited, Winchester House, 
Canning Road, Harrow HA3 7SJ, England 



Order by phone on 01 861 1T66 




» i 




iTIONAL 



Audiogenic Software Limited, Winchester House, 
Canning Road, Harrow HA3 7SJ, England 

Order by phone on 01 861 1166 




GAMES REWEKIED: 
TRJNCER BLADE 
□PERATJON WOLF 
PAC MAMA 
RISK 
TANK ATTACK 





4-JFTfFfl KIRJTFH ▲ RflRJR Kin" 



